ПОМОГИТЕ ПОЖАЛУЙСТА! СРОЧНО НАДО! помогите написать пожалуйста (оператор...

0 голосов
51 просмотров

ПОМОГИТЕ ПОЖАЛУЙСТА! СРОЧНО НАДО! помогите написать пожалуйста (оператор Repeat-Untill)программа загадывает случайное число в диапазоне от 1 до 100.Написать программу,позволяющая пользователю угадать заданное число за неизвестное количество попыток. если пользователь будет вводить число,меньше загаданного,тогда появится на экране подсказка "больше",и наоборот-если число будет больше загаданного появляется подсказка "меньше".Если он угадывает число за количество попыток меньше 7,тогда появляется надпись "молодец",если больше 7 - "плохо"


Информатика (14 баллов) | 51 просмотров
0

на PascalABC пойдет?

Дан 1 ответ
0 голосов

var a,b,c: real;

begin

 c:=0;

 a:=random (100);  

 repeat  readln(b); if ba then begin writeln('меньше') ;c:=c+1  end until b=a;

 if c

 end.

(130 баллов)