Question

viết bằng pascal nhé giúp mình với, mình cần gấp!!

Answer 1

Program HOC24;

var t,n,s,d: integer;

begin

d:=1; s:=1; t:=0;

while d<100 do

begin

t:=t+2;

s:=s+t;

d:=d+1;

end;

write(s);

readln

end.