Задание 16 Урок 13.1
Primary tabs
Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.
var i,j, n: integer; begin writeln('vvedite chislo'); readln(n); if (n>=0) then begin i:=8; j:=1; while(i<=n) do begin if(j=3) then begin write(j, ' '); j:=0; end else begin write(i, ' '); end; j:=j+1; i:=i+2; end; end else writeln('oshibka!'); readln(); end.
- Log in to post comments
- 460 reads