Даны отрезки a, b,c, d. для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника - pascal abc.

Var  a, b, c, d: real; procedure plo(s: string; x, y, z: real); var  sq: real; begin  if ((y + z - x) > 0) and ((x + z - y) > 0) and ((x + y - z) > 0) then  begin    sq : = 0.25 * (sqrt((x + y + z) * (y + z - x) * (x + z - y) * (x + y - ;     writeln('площадь треугольника со сторонами ', s, ' = ', sq: 0: 3);   end else writeln('треугольник со сторонами ', s, ' не существует'); end; begin  write('a='); readln(a);   write('b='); readln(b);   write('c='); readln(c);   write('d='); readln(d);   plo('a,b,c', a, b, c);   plo('a,b,d', a, b, d);   plo('a,c,d', a, c, d);   plo('b,c,d', b, c, d); end.

#include < stdio.h>

#include < conio.h>

int main( void )

{

  int c, i;

  printf("input number: ");

  scanf(& c);   //амперсант c в скобках

  i = (int)(c%10);

  c = i*i;

  printf("answer: %i", c);

  getch();

  return 1;

}

ну, в первом тексте информационный объем одного символа составляет

n=2^i

32=2^5

i=5 бит

во втором текте

64=2^6

i=6

значит, в 1,2 раза (6: 5=1,2)