Урок 13.1 Задача 15
Primary tabs
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N
var i, j, M: integer; begin i:=8; readln(M); if (M<8) then writeln('Errror') else repeat for j:=1 to 3 do begin if (i>M) then break; if j=3 then write(3,' ') else begin write(i,' '); i:=i+2; end; end; until i>M; readln(); end.
- Log in to post comments
- 490 reads