Предмет: Информатика,
автор: gurinavika
составить программу, которая вычисляет и печатает сумму квадратов чётных чисел от 12 до 20
Ответы
Автор ответа:
3
Var
A,S:integer;
Begin
S:=0;
A:=12;
Repeat
S:=S+A*A;
A:=A+2
Until A > 20;
WriteLn('S = ',S);
End.
A,S:integer;
Begin
S:=0;
A:=12;
Repeat
S:=S+A*A;
A:=A+2
Until A > 20;
WriteLn('S = ',S);
End.
Интересные вопросы
Предмет: Українська мова,
автор: annamariasologub
Предмет: Українська мова,
автор: Аноним
Предмет: Русский язык,
автор: kosinadara74
Предмет: Музыка,
автор: stepanshaiilo
Предмет: Қазақ тiлi,
автор: taisiya40