Для двух треугольных пирамид, заданных ребрами, определить, площадь полной поверхности которой из них больше и на сколько. (программа Паскаль)
Вопрос посетителя
Для двух треугольных пирамид, заданных ребрами, определить, площадь полной поверхности которой из них больше и на сколько.
Ответ эксперта
uses crt;
procedure Sp(a:real;var s:real);
begin
s:=a*a*sqrt(3);
writeln(‘Площадь полной поверхности=’,s:0:2);
end;
var a,s:real;
i:byte;
begin
clrscr;
writeln(‘Введите длины ребер 2 тетраэдров:’);
for i:=1 to 2 do
begin
write(‘a’,i,’=’);
readln(a);
Sp(a,s);
end;
readln
end.
