Предмет: Информатика,
автор: viktornekrasov2000
Написать программу которая считает сумму квадратов всех парных чисел до заданного числа n на языке Паскаль
viktornekrasov2000:
да
ну в пределах 20
Ответы
Автор ответа:
1
begin
var n := ReadInteger;
var s := 0;
var i := 2;
while i <= n do
begin
s := s + i * i;
i := i + 2;
end;
Print(s)
end.
Не следует задавать n > 1000
Интересные вопросы
Предмет: Математика,
автор: elamankolins
Предмет: Математика,
автор: sava71391
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: 22252
Предмет: История,
автор: 1123first1231