Написать программу на языке с#, которая подсчитывает площадь равностороннего треугольника, периметр которого равен р

Int p = convert.toint32(console.; int s = p * p * sqrt(3) / 36; consloe.writeline(s);

1. общее количество символов 1800 + 2 х 3000 = 7800. пусть символы кодируются в однобайтном коде ascii, тогда 7 800 символов имеют информационный объём 7 800 байт или 7800 х 8 =62 400 бит. при скорости передачи 1200 бит/с на передачу этой информации потребуется время 62400 / 1200 = 52 с 2.  предполагая кодировку ascii определим объем информации: 7920 х 40 х 8 = 2 534 400 бит. скорость передачи составит 2534400 / 33 = 76 800 бит/с 3. переводим килобайты в биты (1 кбайт = 1024 байта, 1 бит = 8 байт): 3750 х 1024 х 8 = 30 720 000 бит. переводим минуты в секунды: 2 х 60 = 120 с определяем скорость передачи: 30720000 / 120 = 256 000 бит/с 1)  500 кбайт = 500 х 1024 х 8 = 4 096 000 бит. время передачи данных 4096000 / 128000 = 32 с 2) за 2 минуты, равные 2 х 60 = 120с, будет передано 256000 х 120 = 30 720 000 бит. переводим в килобайты: 30720000 / 8 / 1024 = 3 750 кбайт 3)  3000 кбайт = 3000 х 1024 х 8 = 24 576 000 бит 5 минут - это 5 х 60 = 300 с скорость передачи данных составит 24576000 / 300 = 81 920 бит/с

Const ptr = 10; type razbivka = array[0..ptr] of byte; var n, i, z, k: byte; x: razbivka; procedure p(var x: razbivka; var z: byte); var i, j, s: byte; begin i : = z - 1; s : = x[z]; while (i > 1) and ( x[i - 1] < = x[i] ) do begin s : = s + x[i]; dec(i); end; inc( x[i] ); z : = i + s - 1; for j : = i + 1 to z do x[j] : = 1; end; begin write('введите число: '); readln(n); write(n,' = '); z : = n; for i : = 1 to z do x[i] : = 1; for i : = 1 to n do begin if i > 1 then write(' + '); write( x[i], '' ); end; writeln; repeat p( x, z ); inc(k); write( n,' = ' ); for i : = 1 to z do begin if i > 1 then write(' + '); write( x[i], '' ); end; writeln; until z = 1; end.p.s: нашел в интернете  для вас  вариант с рекурсией. сами можете убедиться, что с ней только хуже (по быстродействию уж точно)const  m = 100; var  a: array[1..m] of integer; k, n: integer; procedure p(j,n: integer); var  i: integer; begin  if ( n = 0 ) and ( k > 1 ) thenbegin  for i : = 1 to k dowrite( a[i] : 4 ); writeln; end  else  for i : = j to n dobegininc(k); a[k] : = i; p( j, n - i ); dec(k); end; end; beginwrite('введите число: '); readln(n); k : = 0; p(1,n); end.значения ptr и m можно поставить и больше, но тогда я не ручаюсь)