Регистрация
annadarbinyan1
07.12.2022 09:54
Информатика
Есть ответ 👍

Написать на бумаге презентацию на тему: Вирусы, антивирусы и их виды

283
412
Посмотреть ответы 1

Ответы на вопрос:

05Дарья50
05Дарья50
4,8(49 оценок)
Не знаю чего именно там хотели, но так программа работает и при 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.

Популярно: Информатика