program n_1;
var S:integer;
begin
S:=(sqr(2)+sqr(4)+sqr(6)+sqr(8)+sqr(10));
writeln(S);
end.
sqr(i) - sqr это возведение числа во вторую степень, а i само число
//прога на Pascal`e
var
i: integer;
begin
for i:=100 to 999 do
if (i mod 9) = 0 then write (i, '; ');
end.
<u>1</u> 30 <u>435</u> 4060 <u>27405</u> 142506 <u>593775</u> 2035800 <u>5852925</u> 14307150 <u>30045015</u> 54627300 <u>86493225</u> 119759850 <u>145422675</u> 155117520 <u>145422675</u> 119759850 <u>86493225</u> 54627300 <u>30045015</u> 14307150 <u>5852925</u> 2035800 <u>593775</u> 142506 <u>27405</u> 4060 <u>435</u> 30 <u>1</u>
Это 30-я строка треугольника Паскаля, расчитанная онлайн на сайтеhttp://calcsbox.com/post/treugolnik-paskala.html. Жирным шрифтом с подчёркиванием выделены все нечётные цифры. Всего их 16.
Ответ: 16.
P.S. На 32-ой строчке ответ 2; на 31-ой строчке ответ 32.