Question

Составьте алгоритм вывода пятнадцати первых нечетных чисел.

Answer 1

Begin
  for i: byte := 1 to 30 do
    if (i mod 2 = 1) then
      write(i, ' ');
end.
=================
алг
нач
  i = 0
  пока i < 15
  нц
    вывод i * 2 + 1
    i = i + 1
  кц
кон