Задача 16 урок 11
Primary tabs
Задача 16 урок 11
У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.
var a, z, f: integer; flag: boolean; begin z := 5; f := 0; while (z >= 0) do begin writeln('Vvedite celoe chislo'); readln(a); f := f + 1; if (a >= 15) AND (f < 4) then begin flag := true; f := 0 end; if (f > 3) then begin f := 0; flag := false; end; if flag then z := z + 1 else z := z - 1; writeln('Otvet ', z); end; writeln('Exit'); readln(); end.
- Log in to post comments
- 776 reads