Дана программа угадать загаданное нами число при вопросов: ваше число больше или меньше такого- программа не угадать число - 50. для исправления ошибки необходимо заменить одну или две переменных. особое внимание обращается на тот факт, что в начале в условии допускается 5 различных значений. однако переменная - x в программе не используется. var a,b,x,y,z: integer; begin writeln('1-да, 0-нет'); z: =0; a: =1; b: =100; while b-a> 1 do begin z: =((a+b)div 2); writeln('число больше ', z); readln(y); if y=1 then a: =z else b: =z; end; writeln('ваше число ', z); end.
var
a, b, y, z: integer;
begin
writeln('1-да, 0-нет');
a := 1;
b := 100;
while b - a > 0 do
begin
z := (a + b) div 2;
writeln(' число больше ', z);
readln(y);
if y = 1 then
a := z + 1
else
b := z;
end;
writeln('Ваше число ', a);
end.