Напишите на языке Паскаль программу для игры "Угадай число" (промежуток от 1 до 8)
Answers & Comments
estengseant
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.
Answers & Comments
begin
writeln('Введите любое число от 1 до 8');
readln(n);
rand:=random(8-1+1)+1;
if rand=n then writeln('Вы отгадали число!') else writeln('Вы не отгадали. Было загадано число ',rand);
end.