Регистрация
HOHOL666
28.05.2022 06:41
Информатика
Есть ответ 👍

Решите плес инфа паскаль​

146
280
Посмотреть ответы 1

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

MrZick33446
MrZick33446
4,7(58 оценок)

var

 h,s1,s2,v:real;

begin

 Write('Площадь нижнего основания пирамиды: '); Read(s1);

 Write('Площадь верхнего основания пирамиды: '); Read(s2);

 Write('Высота пирамиды: '); Read(h);

 v:=h*(s1+s2+sqrt(s1*s2))/3;

 Writeln('Объем пирамиды: ',v)

end.

Объяснение:

Популярно: Информатика