Решение задачи №14 из главы 11

Решение задачи №14 из главы 11

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

Вывод консоли
Vvedite chislo
15
15
Vvedite chislo
16
17
Vvedite chislo
14
13
Vvedite chislo
var z:integer;
  begin
    z:=5;
    while z < 100 do
    begin
      writeln('Vvedite chislo');
      readln(z);
    if z < 0 then
       break;
    if z > 15 then
        z:=z+1;

      if z < 15 then
        z:=z-1;
      writeln(z);
    end;
     readln();
  end.          
vedro-compota's picture

должно быть:

Vvedite chislo
15
6
Vvedite chislo
16
7
Vvedite chislo
14
6
Vvedite chislo

_____________
матфак вгу и остальная классика =)

gani84's picture

Вывод консоли
Vvedite chislo
15
6
Vvedite chislo
16
7
Vvedite chislo
14
6
Vvedite chislo
var z,a:integer;
  begin
    z:=5;
    while z < 100 do
    begin
      writeln('Vvedite chislo');
      readln(a);
    if z < 0 then
       break;

    if a >= 15 then
        z:=z+1;

    if a < 15 then
        z:=z-1;
      writeln(z);
    end;
   readln();
 end.
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)