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

Question

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

Comments

в каком диапазоне чисел?

---

нечётные однозначные значит квадрат 1,3,5,7 и 9

Answer 1

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