Дана программа угадать загаданное нами число при - вопрос №6204193 от serbakovasvetas 15.06.2021 18:34

Question

Информатика: Дана программа угадать загаданное нами число при вопросов: ваше число больше или меньше такого- программа не угадать число - 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);

serbakovasvetas · Answer

Не знаю чего именно там хотели, но так программа работает и при 50

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.