Вычеслите сумму квадратов всех четных чисел от1 до n
GiTToS
3
20.05.2019 03:30
0
Другие вопросы по теме Информатика
kataderabinaКатюшка
13.04.2021 19:06
Sheripova041
13.04.2021 19:06
нази17
13.04.2021 19:05
bati9999
02.10.2019 13:10
TheKateClapp123
22.12.2019 09:05
gusew7kaja
19.10.2021 00:56
Atems564
14.12.2020 08:49
dVioletta
14.12.2020 08:50
petia2006
11.06.2019 03:40
Популярные вопросы
- Напиши, в каких частях света расположены цивилизации эпохи нового...
1 - Просклоняйте по падежам ( казахским ) слово білім...
3 - Даны три вершины параллелограмма abcd : a(1 0) b (2 3 ) c (3 2 )!...
3 - При столкновении в вакууме иона fe3+ с ионом сl-- образуется одна...
3 - Расстояние между 680 км.из них одновременно навстречу друг другу...
3 - Для школы 6 столов и 5 парт по одинаковой цене. за всё заплатили...
1 - Расставь порядок действий (246-178+-108)...
1 - Напишите уравнения реакций для превращений: р→ р2o5→ н3ро4 → na3ро4...
1 - Переведите на ! : арина. как твои дела? когда к нам приедете? вся...
2 - Запишите несколько чисел, каждое которое делется на 5, 3, 7...
3
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.