Question

4. Составить Паскаль-программу для вычисления и печати значения переменной S, равного сумме квадратов нечетных чисел от 1 до 19 включительно.

Answer 1

program znanija_12709446;
  var  i : integer; 
  s : integer;
begin 
  for i := 1 to 19 do   
    if (i mod 2 <> 0) then       
      s := s + i*i; 
  print(s);
end.

Answer 2

Как вариант, можно пройти по циклу с шагом 2, тогда не придется проверять нечет.

Answer 3

согласен с предложением