Võ Thị Tuyết Nga
Hỏi từ APP VIETJACK
a)Nhập (n<=100)số nguyên từ bàn phím
b)tính tổng S=1+2+3...+n
c)In tổng ra màn hình
b)tính tổng S=1+2+3...+n
c)In tổng ra màn hình
Quảng cáo
2 câu trả lời 155
program so100;
uses crt;
var n, i := integer;
sum := longint;
begin
clrscr;
write('Nhap so can tinh : ');readln(n);
sum := 0;
for i := 1 to n do
sum:=sum+i;
writeln('Tong la : ',sum);
readln;
end.
program so100;
uses crt;
var n, i := integer;
sum := longint;
begin
clrscr;
write('Nhap so can tinh : ');readln(n);
sum := 0;
for i := 1 to n do
sum:=sum+i;
writeln('Tong la : ',sum);
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 VIETJACK45502
-
Hỏi từ APP VIETJACK28395
Gửi báo cáo thành công!
