Урок 13.1. Задача 15.
Primary tabs
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:8 10 3 12 14 3 16 18 3 20-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводится тройка и ещё пара увеличенных на 2 чисел и т.д. пока не дойдем до N.
var a, b, N, i : integer; begin write('Enter an integer 7+ : '); readln(N); a := 8; b := 0; if N < 8 then writeln('Error') else for i := a to N do begin if (i mod 2 = 0) then begin b := b + 1; write(i, ' '); end else if (b = 2) then begin b := 0; write(3,' '); end; end; readln(); end.
- Log in to post comments
- 279 reads