viết chương trình tính tổng 1+2+3+...+120 với câu lệnh while do
2 câu trả lời
uses crt;
var s,i:integer;
begin
clrscr;
while i<=120 do
begin
s:=s+i;
inc(i);
end;
write('Tong la: ',s);
readln
end.
program oken;
uses crt;
var i,s: integer;
begin
clrscr;
i:=1;
while i<=120 do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so tu 1->120: ',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
