Урок 13.1 Задача 16
Primary tabs
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:8 10 3 12 14 3 16 18 3 20
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводится тройка и ещё пара увеличенных на 2 чисел и т.д. пока не дойдем до N.
var i, n, z:integer; begin i:=8; z:=2; writeln('vvedite polozhitelnoe chislo >=8: '); readln(n); if (n>=8)then begin while (i<=n) do begin if z=0 then begin write(3, ' '); z:=2; end else begin write(i, ' '); i:=i+2; z:=z-1; end; end; end else writeln('oshibka'); writeln(); writeln('konec'); readln(); end.
- Log in to post comments
- 250 reads