Предмет: Информатика,
автор: bhbyfda
Вычеслите сумму квадратов всех четных чисел от1 до n
Ответы
Автор ответа:
1
var
i, n, s: integer;
begin
readln(n);
for i := 1 to n do begin
if(i mod 2 = 0) then s := s + sqr(i);
end;
writeln(s);
end.
Интересные вопросы
Предмет: Русский язык,
автор: rakhat2
Предмет: Русский язык,
автор: mama311
Предмет: Українська мова,
автор: rrsensereda
Предмет: Физика,
автор: ALIC209237