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

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

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

var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln(Введи число: );
if a<>b then
 c:=c+1;
readln(b);
if b>a then
 writeln(Загаданное число меньше ! );
if b writeln(Загаданное число больше ! );
if b=a then
 writeln(Победа!);
until a=b;
writeln(c);
readln;
end.