Составить программу, которая вычисляет и печатает сумму квадратов чётных чисел от 12 до 20
Нет комментариев
Ответы
Гость Var
A,S:integer;
Begin
S:=0;
A:=12;
Repeat
S:=S+A*A;
A:=A+2
Until A > 20;
WriteLn('S = ',S);
End.
Нет комментариев
Список предметов
