Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Решите задачу на паскале
Вычислить объем пирамиды, основание которой равносторонний треугольник со стороной b, а высота пирамиды h.
1 | Автор: Tolian92 | 2011-10-31, 18:29   |  Репутация: [ + 1 ]
program Objem_Piramidy;
var S, V, h, b : real;
begin
Writeln ('Vvedit storonu b');
readln(b);
Writeln ('Vvedit vysotu');
readln(h);
S:=b*sqrt(3)/2;
V:=1/3*S*h;
Writeln ('Objem Piramidy=', V:10:5,'sm^3');
end.


_-Serhiy-_
2 | Автор: Sz95 | 2012-01-16, 20:34   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: