Перевидите числа из 10 системы счисления в 2-ную систему счислния 1.12 10= 11.118 10= 21.111 10= 2.15 10= 12.205 10= 22.222 10= 3.25 10= 13.394 10= 23.333 10= 4.36 10= 14.429 10= 24.444 10= 5.47 10= 15.533 10= 25.555 10= 6.58 10= 16.671 10= 26.666 10= 7.69 10= 17.786 10= 27.777 10= 8.71 10= 18.892 10= 28.888 10= 9.82 10= 19.900 10= 29.999 10= 10.91 10= 20.1684 10= 30.254 10=

1.12(10)=1100(2)     11.118(10)=1110110(2)       21.111(10)=11010010100(2)

2.15(10)=1111(2)     12.205(10)=11001101(2)       22.222(10)=11011110(2)

3.25(10)=11001(2)     13.394(10)=110001010(2)     23.333(10)=101001101(2)

4.36(10)=100100(2)   14.429(10)=110101101(2)     24.444(10)=110111100(2)

5.47(10)=101111(2)   15.533(10)=1000010101(2)     25.555(10)=1000101011(2)

6.58(10)=111010(2)   16.671(10)=1010011111(2)     26.666(10)=1010011010(2)

7.69(10)=1000101(2)   17.786(10)=1100010010(2)     27.777(10)=1010011010(2)

8.71(10)=1000111(2)   18.892(10)=1101111100(2)     28.888(10)=1010011010(2)

9.82(10)=1010010(2)   19.900(10)=1110000100(2)     29.999(10)=1111100111(2)  

10.91(10)=1011011(2) 20.1684(10)=11010010100(2)   30.254(10)=11111110(2)

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.