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