Quảng cáo
1 câu trả lời 226
2 năm trước
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 muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
Gửi báo cáo thành công!
