viết chương trình tính tổng 100 số tự nhiên đầu tiên bằng câu lệnh while... do....
2 câu trả lời
var kq,a:integer;
begin
while a<100 do
begin
kq:=kq+a;
inc(a);
end;
wirte('Ket qua la: ',kq);
end.
Program TH2;
Uses Crt;
Var a,b,c:integer;
Begin
Clrscr;
a:=0;
b:=1;
c:=100;
While a<=c do
Begin
b:=b+a;
a:=a+1;
end;
Writeln('Tong 100 so tu nhien dau tien la: ',b);
readln;
End.
Mình chay Ok hết rồi nha bạn
Kết quà là 5051 nha bạn
^-^
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
