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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!