Информатика

Как создать алгоритм по угадыванию числа в диапазоне от 1 до 8?


<< Предыдущий вопрос Следующий вопрос >>

Я такое делал на яве когда делать было нечего...
исходник прикреплен
паскаль
var comp,player:integer;
begin
randomize;
comp:=random(9);
readln(player);
while comp <> player do
begin
if player<comp then
writeln('Мало');
if player>comp then
writeln('Много');
readln(player);
end;
write('Вы угадали')
end.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы