Xuân Nguyên
Hỏi từ APP VIETJACK
Viết ct tính tổng T= 1+2+3+...+n với n là số tự nhiên nhập từ bàn phím in kết quả ra màn hình bằng hai cách sử dụng câu lệnh lặp for... do và while... do
Quảng cáo
1 câu trả lời 387
Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' so dau tien la' , S );
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45560
-
Đã trả lời bởi chuyên gia
28860 -
Hỏi từ APP VIETJACK28486
Gửi báo cáo thành công!
