Question

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

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.