Quảng cáo
1 câu trả lời 1404
3 năm trước
program tinh_tong;
Var N,i: integer;
S: Longint;
begin
Write('Nhap so N=');readln(n); s:=0;
For i:=1 to n do
S:= s+i;
writeln(Tong cua ',N,' so tu nhien dau tien la s=',s);
End.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44796
-
Hỏi từ APP VIETJACK26464
Gửi báo cáo thành công!