Урок 11 Задание 14
Primary tabs
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
program Hello; var z,a: integer; begin z:=5; begin while (z>-1) do begin writeln ('vvedite chislo'); readln(a); begin if a>=15 then z:=z+1 else z:=z-1 end; writeln(z); end; end; end.
Консоль:
vvedite chislo 17 6 vvedite chislo 15 5 vvedite chislo 17 6 vvedite chislo 3 5 vvedite chislo 4 4 vvedite chislo 5 3 vvedite chislo 6 2 vvedite chislo 7 1 vvedite chislo 8 0 vvedite chislo 9 -1
- Log in to post comments
- 359 reads