Задача 15 Урок 13.1
Primary tabs
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
var n,i,j:integer; begin writeln('Vvedite celoe chislo: '); readln(n); i:=6; if((n>0)and(n>=8))then while (i<n) do begin for j:=1 to 2 do begin i:=i+2; if (i<=n) then write(i,' '); end; if (i<n) then write(3,' '); end else writeln('Oshibka! Chislo ne sootvetstvuet usloviam!'); end.
Консоль:
Vvedite celoe chislo: 20 8 10 3 12 14 3 16 18 3 20
- Log in to post comments
- 642 reads