Составить линейную программу в delphi печатающую значение true, если указанное высказывание является истинным, и false - в противном случае. : даны три стороны одного и три стороны другого треугольника. эти треугольники равновеликие, т.е. имеют равные площади.

108

491

Посмотреть ответы 2

Ответы на вопрос:

ilyafedoseev

Информатика

4,6(68 оценок)

Program project13; {$apptype console} var a,b,c,s,p: real; begin write('a1 = '); readln(a); write('b1 = '); readln(b); write('c1 = '); readln(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('a2 = '); readln(a); write('b2 = '); readln(b); write('c2 = '); readln(c); p: =(a+b+c)/2; a: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s = a); readln end. примечание: программа не проверяет, существуют ли треугольники.