Сложите числа в двоичной системы счисления 10111 и 2 маленькая+1011 и 2 маленькая

10111

+ 1011

100010

  10111

    1011

 

100010   и 2 маленькая ))

// pascalabc.net 3.0, сборка 1076 var   a,b,c,p,s: real; begin   writeln('введите через пробел стороны треугольника: ');   read(a,b,c);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('площадь треугольника равна ',s)       end   else writeln('невозможно построить треугольник') end.   тестовые решения: введите через пробел стороны треугольника: 10 15 13.6 площадь треугольника равна 66.3272183948641 введите через пробел стороны треугольника: 5 8 20.4 невозможно построить треугольник

// pascalabc.net 3.0, сборка 1076 var   s,ss: string;   i,n,p: integer; begin   write('введите строку: '); readln(s);   n: =length(s); p: =pos(',',s);   if p in [1..n-1] then begin       ss: =copy(s,p+1,n-p);       n: =length(ss); p: =pos(',',ss);       if p=0 then writeln(ss)       else writeln(copy(ss,1,p-1))       end   else writeln('*** нечего выводить ***') end.           тестовые решения: введите строку: 01234,45679,1011213,14151617 45679 введите строку: 01234,45679101121314151617 45679101121314151617 введите строку: 01234, *** нечего выводить ***