Задача 14 Урок 11
Primary tabs
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
program Variant2; var z, a: integer; begin z:= 5; while (z >= 0) do begin readln(a); if (a >= 15) then z:= z + 1 else z:= z - 1; end; end.
- Log in to post comments
- 314 reads