Đăng nhập để hỏi chi tiết
13
6
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1205
1215
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
^-^
Hãy giúp mọi người biết câu trả lời này thế nào?
1254
1145
var kq,a:integer;
begin
while a<100 do
begin
kq:=kq+a;
inc(a);
end;
wirte('Ket qua la: ',kq);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin