Ответы
Ответ дал:
0
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.
begin
writeln('Введите любое число от 1 до 8');
readln(n);
rand:=random(8-1+1)+1;
if rand=n then writeln('Вы отгадали число!') else writeln('Вы не отгадали. Было загадано число ',rand);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад