Урок 13.1 Задача 15

Урок 13.1 Задача 15

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.

Например, для N=20

получим результат:

8 10 3 12 14 3 16 18 3 20

-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводится тройка и ещё пара увеличенных на 2 чисел и т.д. пока не дойдем до N
.

Решение:

program u13z15;
var i,j,n: integer;
begin
  write('vvedite chislo - ');
  readln(n);
  if n>=8 then
  begin
    i:=8;
    while i<=n do
    begin
      if j=2 then
      begin
        write(3,' ');
        j:=0;
      end
      else
      begin
        write(i,' ');
        i:=i+2;
        j:=j+1;
      end;
    end;
  end
  else
    writeln('ERROR');
  readln();
end. 

Консоль:

vvedite chislo - 50
8 10 3 12 14 3 16 18 3 20 22 3 24 26 3 28 30 3 32 34 3 36 38 3 40 42 3 44 46 3 48 50