1) Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей организовать с помощью функций, воспользовавшись формулой Герона.

2) Выведите посредине экрана своё имя, высотой в 8 строк, состоящее из разноцветных звёздочек.

Действительно, не нужно вычислять площадь. В первом способе мы не будем вычислять площадь, но во втором, будь по Вашему, мы вычислим площадь через функцию вычисления площади по Герону.

1) var a, b, c, ma:real;

begin

read (a, b, c) ;

ma:=max (max (a, b), c) ;

if a=ma then write (1,' ') ;

if b=ma then write (2,' ') ;

if c=ma then write (3,' ') ;

end.

2) var a, b, c, pa, pb, pc, ma:real;

function geron (aa, bb, cc:real) : real;

begin

pa:=sqrt ((3*a) * (2*a) * (2*a) * (2*a)) ;

pb:=sqrt ((3*b) * (2*b) * (2*b) * (2*b)) ;

pc:=sqrt ((3*c) * (2*c) * (2*c) * (2*c)) ;

end;

begin

read (a, b, c) ;

geron (a, b, c) ;

ma:=max (max (pa, pb), pc) ;

if pa=ma then write (1,' ') ;

if pb=ma then write (2,' ') ;

if pc=ma then write (3,' ') ;

end.