1600*4 1200*4 вот дальше сам.................
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Какое число получилось?');
Writeln('Вы загадали число ',n-10)
end.
<span>157(10) = 10011101(2)
со знаком, это представим в прмом коде
1,10011101
обратном
1,01100010
и дополнительном
1,01100011</span>