Напишите программу и процедуру, вызываемую из основной программы для вычисления площади поверхности параллелепипеда по заданным значениям: высота, длина ребра основания, площадь боковой стороны. free pascal
Напишите программу и процедуру,
вызываемую из основной программы для вычисления площади поверхности
параллелепипеда по заданным значениям: высота, длина ребра основания, площадь
боковой стороны. free pascal
Гость
Ответ(ы) на вопрос:
Гостьconst
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.
Не нашли ответ?
Похожие вопросы