Предмет: Информатика,
автор: Kiriemm
ПОМОГИТЕ ПОЖАЛУЙСТА! СРОЧНО НАДО!
помогите написать пожалуйста (оператор Repeat-Untill)
программа загадывает случайное число в диапазоне от 1 до 100.Написать программу,позволяющая пользователю угадать заданное число за неизвестное количество попыток. если пользователь будет вводить число,меньше загаданного,тогда появится на экране подсказка "больше",и наоборот-если число будет больше загаданного появляется подсказка "меньше".Если он угадывает число за количество попыток меньше 7,тогда появляется надпись "молодец",если больше 7 - "плохо"
evilforestart:
на PascalABC пойдет?
Ответы
Автор ответа:
1
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.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: serdtseva1983
Предмет: Физика,
автор: Ната101010
Предмет: Математика,
автор: акация2