Напишите программу для машины поста которая удваивает число записанное в единичной системе счисления. каретка расположена над первой отметкой числа​

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

21,24,27,30,33,36,39,42,45,48

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи