Задать вопрос
18 августа, 20:33

Написать алгоритм по угадыванию чисел в диапазоне от 1 до 8

+4
Ответы (1)
  1. 18 августа, 22:36
    0
    var

    a, b, c:integer;

    begin

    randomize;

    a:=random (8) ;

    c:=0;

    repeat

    writeln ('Введи число: ') ;

    if ab then

    c:=c+1;

    readln (b) ;

    if b>a then

    writeln ('Загаданное число меньше! ') ;

    if b
    writeln ('Загаданное число больше! ') ;

    if b=a then

    writeln ('Победа!') ;

    until a=b;

    writeln (c) ;

    readln;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Написать алгоритм по угадыванию чисел в диапазоне от 1 до 8 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы