Решение задачи №16 из главы 13.1
Primary tabs
Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.
var N,a: integer; begin a:=0; writeln('vvedite cislo N'); readln(n); if (n > 0) then while (a < n) do begin a := a + 2; write(' ',a); a := a + 2; write(' ',a); write(' ', 3); end else writeln('oshibka'); readln(); end.
- Log in to post comments
- 5253 reads
vedro-compota
Thu, 10/01/2020 - 19:34
Permalink
добавить распечатку консоли
добавить распечатку консоли
_____________
матфак вгу и остальная классика =)
gani84
Sun, 10/04/2020 - 17:50
Permalink
Распечатка консоли
gani84
Tue, 10/06/2020 - 21:03
Permalink
Другой вариант
vedro-compota
Thu, 10/08/2020 - 19:26
Permalink
в одном витке надо выводить
в одном витке надо выводить одну переменную
Предварительно решите 7-ю задачу отсюда: http://fkn.ktu10.com/?q=node/8612
_____________
матфак вгу и остальная классика =)
gani84
Mon, 10/26/2020 - 16:57
Permalink
Исправил
vedro-compota
Sun, 11/01/2020 - 16:55
Permalink
решение верное, добавьте
решение верное, добавьте вариант с mod
_____________
матфак вгу и остальная классика =)
gani84
Tue, 11/03/2020 - 18:36
Permalink
Вариант с mod
vedro-compota
Sun, 11/08/2020 - 16:25
Permalink
решите без обнуления счетчика
решите без обнуления счетчика j
и объясните почему обнуление тут не обязательно
_____________
матфак вгу и остальная классика =)
gani84
Sun, 11/08/2020 - 19:19
Permalink
Исправил
vedro-compota
Thu, 11/12/2020 - 19:35
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)