Помогите,пожалуйста, написать программу,в которой пользователь предполагается дополнить до 100 некоторое целое число a(а-случайное число,меньше 100). Ответ пользователя проверяется и комментируется. Должен быть random)Спасибо!
Ну помогите
Uses crt; var a,b:integer; begin randomize; a:=random(100); writeln(a); repeat readln(b); if b=100 then writeln('дополнено'); if b<100 then writeln('прибавь еще');<br>if b>100 then writeln('убавь-ка'); until b=100; end.
У меня ошибка выходит
что именно пишет
пишет "ожидалось имя процедуры или функции" после а:=random
странно, у меня ошибки нет. какой паскаль стоит? у меня ABC
И у меня
Все правильно написал
Если честно, не знаю, в чем дело, у меня все прекрасно работает...
А что такое юзис и юнтил?
юзис вызывает окошко ввода, то есть не внизу данные вводятся, а во всплывающем окошке. Юнтил - это постусловие, при выполнении которого цикл repeat прекращается
СПС)