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