Уро 13.1 Задача 15
Primary tabs
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:8 10 3 12 14 3 16 18 3 20
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводится тройка и ещё пара увеличенных на 2 чисел и т.д. пока не дойдем до N.
Решение;
program Project1; var m, a, N, x : integer; begin write('Ввидите число больше 7: '); readln(N); m := 8; a := 0; if N < 8 then writeln('Опаньки ошибочка ') else for x := m to N do begin if (x mod 2 = 0) then begin a := a + 1; write(x, ' '); end else if (a = 2) then begin a := 0; write(3,' '); end; end; readln(); end.
- Log in to post comments
- 5353 reads
vedro-compota
Tue, 07/05/2022 - 20:21
Permalink
Можно упростить:
Можно упростить:
_____________
матфак вгу и остальная классика =)
vedro-compota
Thu, 07/21/2022 - 18:33
Permalink
2) Второй способ
Добавить решение вложенными циклами
_____________
матфак вгу и остальная классика =)
kuznmax
Mon, 07/25/2022 - 10:19
Permalink
Исправил и добавил
vedro-compota
Tue, 08/02/2022 - 19:57
Permalink
Введите число больше 7:
-- не совпадает с оригинальным условием:
_____________
матфак вгу и остальная классика =)
kuznmax
Thu, 08/04/2022 - 11:00
Permalink
Решение вложенными циклами по видео-разбору
vedro-compota
Tue, 08/23/2022 - 20:10
Permalink
repeat/until не нуждается в
repeat/until не нуждается в операторных скобках
_____________
матфак вгу и остальная классика =)
kuznmax
Fri, 08/26/2022 - 14:45
Permalink
Исправил
end.
kuznmax
Tue, 08/09/2022 - 10:42
Permalink
Попытка использовать цикл While внутренним
vedro-compota
Tue, 08/23/2022 - 19:56
Permalink
проверить что именно является
_____________
матфак вгу и остальная классика =)
kuznmax
Fri, 08/26/2022 - 14:46
Permalink
Исправил
vedro-compota
Thu, 09/08/2022 - 19:48
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)