Вычислить сумму квадратов нечётных однозначных чисел в программе паскаль abc

Question

Информатика: Вычислить сумму квадратов нечётных однозначных чисел в программе паскаль abc

anna1660 · Answer

Begin var i,s,d:integer; s:=0; for i:=1 to 9 doif (i mod 2 0) then begin d:=sqr(i);s:=s+d; end;writeln(s);end....