Quảng cáo
1 câu trả lời 285
program TinhTong;
var n, S: integer;
i: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
for i := 1 to n do
begin S := S + i;
end;
writeln('Tong S 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 VIETJACK45513
-
Hỏi từ APP VIETJACK28408
Gửi báo cáo thành công!
