Viết chương trình tính tổng 100 số lẻ tự nhiên best công nghệ giúp mk zới

2 câu trả lời

program ct;

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do 

if i mod 2=1 then s:=s+i;

writeln('tong la:',s);

readln

end.

uses crt;
var i,t : integer;
begin clrscr;
t:=0;
for i:=1 to 100 do if i mod 2 = 1 then t:=t+i;
write('tong la :', t);
readln
end.