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.
переделайте под питон

Katuhaazaza    3   21.05.2020 18:30    0