Помогите задание по Delphi 7 ))Досконально распишите код) пожалуйста))

Помогите задание по Delphi 7 ))
Досконально распишите код) пожалуйста))

Задать свой вопрос
Ланьшина Катюша
https://znanija.com/task/23778874
Амина Казыкина
https://znanija.com/task/23778877
Варвара Самординова
но мне надобно не паскаль, а delphi 7
Арина Сажинова
)))
Егор Насибов
превосходно)
1 ответ
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);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт