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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

var a,b:integer;

begin

a:=random(99)+1;

write(‘Дополните до 100 число ‘,a,’: ‘);

readln(b);

if b=100-a then writeln(‘Верно!’)

else writeln(‘Вы ошиблись. 100-‘,a,’=’,100-a);

end.

Пример:

Дополните до 100 число 75: 20

Вы ошиблись. 100-75=25