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<a then writeln('Загаданное число больше ! '); if b=a then writeln('Победа!'); until a=b; writeln(c); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
