Задача 16 урок 13.1
Primary tabs
Задача 16 урок 13.1
Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
var N, i: integer; f: boolean; begin f := true; //Флаг вывода нечетного числа writeln('Введите положительное число'); readln(N); if (N > 0) then begin for i := 8 to N do begin if (i mod 2 = 0) then write(i, ' ') else if f then f := false else begin write(3, ' '); f := true end; end; end else writeln('Ошибка'); readln(); end.
- Log in to post comments
- 956 reads