Задача 16 Урок 13
Primary tabs
Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.
var n, b, c : integer; begin b := 0; writeln('Vvedite celoe polozhitelnoe chislo'); readln(n); if n > 0 then begin for c := 8 to n do begin b := b + 1; if ((c mod 2) = 0) then write(c, ' '); if ((b mod 2) = 0) then write(3, ' '); end; end else writeln ('Error!'); end.
КОНСОЛЬ
Vvedite celoe polozhitelnoe chislo 15 8 3 10 3 12 3 14 3
- Log in to post comments
- 614 reads