Составьте программу (в Pascal) "Угадай". Программа задумывает случайное число в диапазоне от 0 до 99.
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
More Questions From This User See All
Answers & Comments
var a,n,k:integer;
begin
randomize;
a:=random(99);
k:=0;
repeat
inc(k);
readln(n);
if a>n then writeln('больше');
if a<n then writeln('меньше');
if a=n then writeln('угадано');
until (n=a) or (k=10);
end.