Tin học Viết chương trình tính tổng T = 1+2+3+…+100 18/08/2021 By Margaret Viết chương trình tính tổng T = 1+2+3+…+100
Program BTH; uses crt; var t:longint; i:byte; Begin clrscr; For i:=1 to 100 do Begin t:=t+i; end; writeln(‘Tong day so tren la: ‘,t); readln; end. Trả lời
uses crt; var t,i:integer; begin clrscr; for i:=1 to 100 do t:=t+i; write(‘T= ‘,t); readln; end. Trả lời
Program BTH;
uses crt;
var t:longint;
i:byte;
Begin
clrscr;
For i:=1 to 100 do
Begin
t:=t+i;
end;
writeln(‘Tong day so tren la: ‘,t);
readln;
end.
uses crt;
var t,i:integer;
begin
clrscr;
for i:=1 to 100 do
t:=t+i;
write(‘T= ‘,t);
readln;
end.