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