Решение задачи №16 из главы 11
Primary tabs
Решение задачи №16 из главы 11
У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше 15, то увеличивайте число z на 1, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.
Вывод консоли Vvedite chislo 16 Vvedite chislo 17 Vvedite chislo 18 Vvedite chislo 19 Vvedite chislo 110 6 Vvedite chislo 15 5 Vvedite chislo 22 Vvedite chislo 22 Vvedite chislo 22 Vvedite chislo 22 6 Vvedite chislo
var z,a,j:integer; begin z:=5; j:=0; while z < 100 do begin writeln('Vvedite chislo'); readln(a); if z < 0 then break; if (a >= 15) then begin j:=j+1; end; if (j=5) AND (a >= 15) then begin z:=z+1; writeln(z); j:=0;//счетчик чтобы повторить еще 4 попытки end; if a <= 15 then begin z:=z-1; writeln(z); end; end; readln(); end.
- Log in to post comments
- 969 reads
vedro-compota
Sun, 11/29/2020 - 16:30
Permalink
проверьте код на входных
проверьте код на входных данных:
_____________
матфак вгу и остальная классика =)