НАДО написать оператор Repeat-Untill)
программа загадывает случайное число в диапазоне от 1 до 100.Написать программу,позволяющая пользователю угадать заданное число за неизвестное количество попыток. если пользователь будет вводить число,меньше загаданного,тогда появится на экране подсказка "больше",и наоборот-если число будет больше загаданного появляется подсказка "меньше".Если он угадывает число за количество попыток меньше 7,тогда появляется надпись "молодец",если больше 7 - "плохо"
Madinauakhitova
2
07.05.2020 19:48
0
Другие вопросы по теме Информатика
gumballl1
23.10.2019 08:51
pastor741
23.10.2019 08:59
Nikitos235555555555
23.10.2019 09:00
Manya1316
28.07.2019 15:00
kseriii
28.07.2019 15:00
анонімка12005
02.04.2019 19:23
Masha6655
25.05.2019 01:40
AlexandroGuerin
25.05.2019 01:40
Marrysh
25.05.2019 01:40
Популярные вопросы
- Укажите набор отрезков, из которого можно составить прямоугольный треугольник....
3 - Найдите корни уравнения √x^2+6x+9=2...
1 - 3/11 от неизвестной суммы в 15 рублей, сколько составляет эта сумма?...
3 - Составьте уравнения реакций,расставьте коэффициенты,назовите продукты реакции:...
1 - Сочинение на тему: китай-china на языке краткое содержание с переводом, зарание...
2 - Обьясни ,почему южную америку называют материком контрастов.в чем особенности...
2 - Сократите дробь6/20 12/9 решение покажите...
3 - Кто из них будет лишним в пищевой цепочке? а) уж; б) пчела; в)тимофеевка;...
1 - Построить график функции y=x².определите и укажите аргумента при котором...
3 - С. задали написать эссе на тему: проблемы подростков . темы: 1.too much homework...
3
var a,b,c: real;
begin
c:=0;
a:=random (100);
repeat readln(b); if b<a then begin writeln('больше') ;c:=c+1;end else if b>a then begin writeln('меньше') ;c:=c+1 end until b=a;
if c<7 then writeln('молодец') else writeln('плохо')
end.