Задача 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 a, i, j: integer; begin a:= 46;//пользовательское число j:= 0; if a > 0 then begin i:= 8; while i <= a do if j = 2 then begin write (3, ' '); j:= 0; end else begin write (i, ' '); i:= i + 2; j:= j + 1; end; end else write('Oschibka. Vvedite pologitelnoe chislo'); readln(); end.
- Log in to post comments
- 797 reads