Quảng cáo
2 câu trả lời 206
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
s:=s+i;
write(s);
readln;
end.
program tong;
uses crt;
var n,i: integer;
s: longint;
begin clrscr;
write(‘Nhap so n: ‘); readln (n);
s:=0;
for i:=1 to n do
s:=s+i;
write(‘Tong la: ‘,s);
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 VIETJACK45484
-
Hỏi từ APP VIETJACK28358
Gửi báo cáo thành công!
