Задача 16 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом: 8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
var m, i, n: integer; begin writeln ('введи число '); readln (m); i:=8; n:=3; while i<=m do begin write (i,' '); i:=i+2; if ((i mod 2)=0) then write (i,' ',n,' '); i:=i+2; end; end.
- Log in to post comments
- 777 reads