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

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

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

Решение:

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

Консоль:

vvedite chislo
1
z = 4
vvedite chislo
2
z = 3
vvedite chislo
16
z = 4
vvedite chislo
17
z = 5
vvedite chislo
-1
z = 4
vvedite chislo
100
z = 5
vvedite chislo