Quảng cáo
1 câu trả lời 174
1 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
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK1 44256
-
Hỏi từ APP VIETJACK24640
-
Hỏi từ APP VIETJACK21086
Gửi báo cáo thành công!