Trần Võ Anh Thy 8/2
Hỏi từ APP VIETJACK
Sử dụng lệnh lặp for...do,while...do để tính tổng số bất kì nhập từ bàn phím.
Quảng cáo
2 câu trả lời 366
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' 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 VIETJACK45577
-
Đã trả lời bởi chuyên gia
28960 -
Hỏi từ APP VIETJACK28509
Gửi báo cáo thành công!
