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