Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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