Программирование.
Напишите программу в Turbo Pascal.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

8=1000(2)=8(8)=8(16)

20=10100(2)=24(8)=14(16)

33=100001(2)=41(8)=21(16)

56=111000(2)=70(8)=38(16)

115=1110011(2)=163(8)=73(16)

246=11110110(2)=366(8)=f6(16)

522=1000001010(2)=1012(8)=20a(16)

1133=10001101101(2)=2155(8)=46d(16)

2166=100001110110(2)=4166(8)=876(16)

а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.