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