Урок 11 задача 16
Primary tabs
У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.
//Первый способ program project1; var numb,z,inc:integer; flag:boolean; begin z:=5; inc:=4; flag:=true; while(z>0)do begin write('vvedite chislo: '); readln(numb); if(numb>=15)then inc:=4 else inc:=inc-1; if(inc>=0)then flag:=true else flag:=false; if(flag)then z:=z+1 else z:=z-1; writeln(z); end; readln(); end. //Второй способ program Hello; var numb,z,inc:integer; begin z:=5; inc:=4; while(z>0)do begin write('vvedite chislo: '); readln(numb); if(numb>=15)then inc:=4 else inc:=inc-1; if(inc>=0)then z:=z+1 else z:=z-1; writeln(z); end; readln(); end.
- Log in to post comments
- 854 reads
vedro-compota
Wed, 09/22/2021 - 22:26
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)