Задача 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 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.
program task16_lesson13_1; var n, i, k ,j : integer; Begin j := 8; //первый k := 0; //прирост следующего по отношению к первому readln(n); if n < 0 then writeLn ('error') else begin for i:=1 to n do begin write(j + k,' '); if ((i mod 2) = 0) then //каждые 2 числа потом "3" write(3, ' '); k := k + 2; end; end; readLn(); end.
- Log in to post comments
- 741 reads