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

CategoriesАлгебраПредмет

Ответ пользователя проверяется и комментируется. Должен быть random)Спасибо!

Ответы:

uses crt,

var a,b:integer,

begin

randomize,

a:=random(100),

writeln(a),

repeat

readln(b),

if b=100  then writeln(дополнено),

if b&lt,100 then writeln(прибавь еще),

if b&gt,100 then writeln(убавь-ка),

until b=100,

end.