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….
0 bình luận về “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-”
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.
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
^-^
var kq,a:integer;
begin
while a<100 do
begin
kq:=kq+a;
inc(a);
end;
wirte(‘Ket qua la: ‘,kq);
end.