Question

viết chương trình tính tổng 100 số tự nhiên chẵn đầu tiên.In ra màn hình tổng đó.

GIÚP MÌNH NHANH VS!!!!!!!!

Answer 1

uses crt;

var i,t,a:integer;

begin

clrscr;

a:=0; t:=0;

for i:=1 to 100 do

begin

t:=t+a;

a:=a+2;

end;

writeln('Tong cua 100 so tu nhien chan dau tien la: ',t);

readln;

end.

Answer 2

Program hotrotin_hoc24;

var i: integer;

t: longint;

begin

t:=0;

for i:=1 to 200 do if t:=if i mod 2=0 then t:=t+i;

write('Tong 100 so tu nhien chan dau tien la : ',t);

readln

end.