Задача 14 Урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
var z,x: integer; begin z:=5; while z>0 do begin writeln ('введи число'); readln (x); if x>=15 then z:=z+1; if x<15 then z:=z-1; writeln (z); if x<0 then break; readln (); end; end.
- Log in to post comments
- 624 reads