Помогите,пожалуйста, написать программу,в которой пользователь предполагается дополнить...

Question

Помогите,пожалуйста, написать программу,в которой пользователь предполагается дополнить до 100 некоторое целое число a(а-случайное число,меньше 100). Ответ пользователя проверяется и комментируется. Должен быть random)Спасибо!

Comments

Ну помогите

Answer 1

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.

Comments

У меня ошибка выходит

---

что именно пишет

---

пишет "ожидалось имя процедуры или функции" после а:=random

---

странно, у меня ошибки нет. какой паскаль стоит? у меня ABC

---

И у меня

---

Все правильно написал

---

Если честно, не знаю, в чем дело, у меня все прекрасно работает...

---

А что такое юзис и юнтил?

---

юзис вызывает окошко ввода, то есть не внизу данные вводятся, а во всплывающем окошке. Юнтил - это постусловие, при выполнении которого цикл repeat прекращается

---

СПС)