Задание 16 Урок 13.1
Primary tabs
Задание 16 Урок 13.1
Пользователь вводит целое положительное число N, если оно не
соответствует критериям (то есть не является положительным), выведете сообщение
об ошибке, в противном случае выведите на экран все числа последовательности,
не большие N, сформированной следующим образом:8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2,
затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.
var i,i1,n: integer; label m1; begin i :=8; m1 : write('Введите целое положительное число N и нажмите ENTER: '); readln(n); if (n <= 0) then begin writeln('ОШИБКА!!! число отрицательное'); goto m1; end else repeat for i1 := 1 to 3 do if (i1 <> 3) then begin write(i, ' '); i := i+2; end else write(3, ' '); until (i > n); readln(); end.
- Log in to post comments
- 650 reads