Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program chia;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=2 to 50 do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
program....
uses Crt;
Var a, b, c, : Real;
Begin
clrscr;
Write( ' Nhap ba so a, b, c : ' );
Readln(a, b, c);
If (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
Begin
Writeln( ' Ba canh tren tao thanh mot tam giac ');
if (a=b) or (a=c) or (b=c) then write(' Day la tam giac can ' );
End
Else write(' Day khong la tam giac can ' );
Readln;
End.
mình ko giỏi toán lắm nhưng lại giỏi về tiếng anh
chúng ta có thể kết bạn đc chứ
I. Nội qui tham gia "Giúp tôi giải toán"
1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các bài toán hay lên diễn đàn;
2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.
3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.
Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.
II. Cách nhận biết câu trả lời đúng
Trên diễn đàn có thể có rất nhiều bạn tham gia giải toán. Vậy câu trả lời nào là đúng và tin cậy được? Các bạn có thể nhận biết các câu trả lời đúng thông qua 6 cách sau đây:
1. Lời giải rõ ràng, hợp lý (vì nghĩ ra lời giải có thể khó nhưng rất dễ để nhận biết một lời giải có là hợp lý hay không. Chúng ta sẽ học được nhiều bài học từ các lời giải hay và hợp lý, kể cả các lời giải đó không đúng.)
2. Lời giải từ các giáo viên của Online Math có thể tin cậy được (chú ý: dấu hiệu để nhận biết Giáo viên của Online Math là các thành viên có gắn chứ "Quản lý" ở ngay sau tên thành viên.)
3. Lời giải có số bạn chọn "Đúng" càng nhiều thì càng tin cậy.
4. Người trả lời có điểm hỏi đáp càng cao thì độ tin cậy của lời giải sẽ càng cao.
5. Các bài có dòng chữ "Câu trả lời này đã được Online Math chọn" là các lời giải tin cậy được (vì đã được duyệt bởi các giáo viên của Online Math.)
6. Các lời giải do chính người đặt câu hỏi chọn cũng là các câu trả lời có thể tin cậy được.
III. Thưởng VIP cho các thành viên tích cực
- admin (
nguyển văn hải )
 |
program Iza_dang_cap;
uses crt;
var n,i: integer;
A:array[1..100] of integer;
begin
clrscr;
writeln('nhap cac phan tu cua day');
for i:=1 to n do write(A[i]);
writeln('cac phan tu cua day so la: ' )
for i:=1 to n do write(A[i],' ');
readln
end.
p/s : bn nhập chương trình zô pascal xem cóa sai j ko nhá~~
Akai Haruma Ace Legona Hung nguyen Đức Minh ngonhuminh
mấy bác cho mình lời khuyên đc ko
Bảo với thầy, cô giám hiệu của bạn : Em tên là.....lớp.... hôm nay em xin nói với cô 1 điều "em sống không phải để cho những người quý em thêm quý em, những người ghét em trở nên quý em hay những người không biết nên quý em hay ghét em trở nên quý em, em sống là vì em thích, em có niềm tin" thế giờ em học được toán, em có ý định thi toán và ko muốn thi tin cô có cho em thi không ?
-Ok man :)) đảm bảo 100% thành công , cô bn có hỏi ai xui thì đừng khai t nhé :|
program chia_n;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
Write('Hay nhap so n ');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
nhớ tick cho mik nha!