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

Question

Информатика

Ладвия

28 января, 22:25

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

+4

Ответы (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.