Задача 14 Урок 11

Задача 14 Урок 11

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным

Решение:

var a,z:integer;
begin
z:=5;
while (z>=0) do
  begin
    writeln('vvedite chislo',' ', 'z=', z);
    readln(a);
    if a>=15 then z:=z+1
    else
     z:=z-1;
     writeln('z=', z);
     readln();
   end;
end.  

Консоль:

vvedite chislo z=5
15
z=6

vvedite chislo z=6
5
z=5

vvedite chislo z=5
5
z=4

vvedite chislo z=4
5
z=3

vvedite chislo z=3
5
z=2

vvedite chislo z=2
5
z=1

vvedite chislo z=1
5
z=0

vvedite chislo z=0
5
z=-1