Question

Вычислите сумму квадратов четных натуральных чисел.
решите пожалйста,на ABC паскале.

Answer 1

var

i, s, n:integer;

 

begin

 

write('Введите последнее натуральное число (счет идет от 1 до n): ');

readln(n);

 

for i:=1 to n do

if i mod 2=0 then

 

begin

s:=sqr(i);

writeln(i,' ');

end;

 

end.