Задача 14 Урок 11
Primary tabs
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или
равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то
уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
var a, z: integer; begin z := 5; readln(a); while (z >= 0) do begin while(a >= 15) do begin z := z + 1; writeln(z); readln(a); end; while((a < 15) and (z >= 0)) do begin z := z - 1; if z < 0 then break; writeln(z); readln(a); end end; end.
КОНСОЛЬ
15 6 5 5 5 4 5 3 5 2 5 1 5 0 5
- Log in to post comments
- 1063 reads
vedro-compota
Sun, 10/17/2021 - 12:12
Permalink
вложенные циклы не нужны
вложенные циклы не нужны
_____________
матфак вгу и остальная классика =)
Vitaliy123
Sun, 10/17/2021 - 16:46
Permalink
Без вложенных циклов
КОНСОЛЬ
vedro-compota
Wed, 10/20/2021 - 19:31
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)