Напишите программу в которой пользователю предлагается дополнить до 100 некоторое целое...

Question

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

---

Answer 1

Var
  n,r:integer;
begin
  Randomize;
  n:=Random(100)+1;
  Write('Дополните число ',n,' до 100: '); Read(r);
  if r=100-n then Writeln('Верно!')
  else Writeln('Вы ошиблись, ответ ',100-n)
end.

Примеры:
Дополните число 88 до 100: 22
Вы ошиблись, ответ 12

Дополните число 71 до 100: 29
Верно!

Comments

ОГРОМНОЕ СПАСИБО :3