Đăng nhập để hỏi chi tiết
0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
2863
21139
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0; i:=20;
while i<=150 do
begin
t:=t+i;
i:=i+1;
end;
write('Tong la: ',t);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
195
123
Program tinhtong;
uses crt;
var i,S:integer;
Begin
clrscr;
S:=0; i:=20;
While i<=150 do begin S:=S+i; i:=i+1; end;
Writeln('Tong la:', S);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin