НАПИСАТЬ ПРОГРАММУ.Угадай число. Один из партнеров вводит в программу число, а второй должен отгадать это число. Причем на каждый предложенный вариант программа отвечает либо «больше», либо «меньше» до тех пор, пока число не бу...
НАПИСАТЬ ПРОГРАММУ.
Угадай число. Один из партнеров вводит в программу число, а второй должен отгадать это число. Причем на каждый предложенный вариант программа отвечает либо «больше», либо «меньше» до тех пор, пока число не будет отгадано. Вывести количество попыток, которое было сделано.
Гость
Ответ(ы) на вопрос:
Гостьvar a,i,b:integer;
begin
writeln('Введи число');
readln(a);
writeln('Уадай');
while a<>b do
begin
readln(b);
if ab then
begin writeln('Больше'); i:=i+1; end;
end;
writeln('Попыток было:', i)
end.
Не нашли ответ?
Похожие вопросы