Напишите на языке Паскаль программу для игры "Угадай число" (промежуток от 1 до 8)

Question

Информатика

Муслих

10 декабря, 21:54

Напишите на языке Паскаль программу для игры "Угадай число" (промежуток от 1 до 8)

+3

Ответы (1)

Знаете ответ на вопрос?

Меланий · Answer 1

Var n, rand: Integer;

begin

writeln ('Введите любое число от 1 до 8') ;

readln (n) ;

rand:=random (8-1+1) + 1;

if rand=n then writeln ('Вы отгадали число!') else writeln ('Вы не отгадали. Было загадано число ', rand) ;

end.