Var n,i,s,a:integer;
begin
write('Введите n = '); readln(n);
s:=0; a:=0;
for i:=1 to n do
begin
a:=a+2;
s:=s+a*a;
end;
writeln('Сумма квадратов ',n,' четных натуральных чисел = ',s);
<span>end. </span>
Мое мнение: Технология будет улучшатся,а тем временем будут погибать люди.Скоро вместо людей будут роботы,которые будут владет нашей планетой.За год из за технологии погибает 3 миллиона человека,это не так мало как мы думаем,ведь у каждого из них была возможность жить,но всё не так.Наше будущее-в наших руках.
Любое число умноженное на100 оканчивается двумя нулями.