Создать программу! тема "организация подпрограмм через функцию" дан параллепипед с измерениями а, b, c. составить программу для нахождения площади полной поверхности, используя подпрограмму нахождения площади прямоугольника.

Вычисление производим по формуле


function Sp(x,y:real):real;
begin
  Sp:=x*y
end;

var
  a,b,c,S:real;
begin
  Write('Введите размеры сторон a,b,c: ');
  Read(a,b,c);
  S:=2*(Sp(a,b)+Sp(a,c)+Sp(b,c));
  Writeln('Площадь поверхности равна ',S)
end.

Тестовое решение:
Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95

Компьютерные технологии сегодня широко используются во всех областях человеческой деятельности. Знание предмета и основ информатики имеет большое значение в наши дни. Изучить информатику, в принципе, сможет любой желающий. Просто у кого-то это займёт меньше времени и сил, а у кого-то больше.

Поставьте для себя конкретные цели, которых вы хотите достичь, изучая информатику. Прежде всего, сделайте акцент на основные понятия и процессы. Когда вы оссвоите азы, обучение не будет требовать больших усилий. 

Компьютерные технологии сегодня широко используются во всех областях человеческой деятельности. Знание предмета и основ информатики имеет большое значение в наши дни. Изучить информатику, в принципе, сможет любой желающий. Просто у кого-то это займёт меньше времени и сил, а у кого-то больше.

Поставьте для себя конкретные цели, которых вы хотите достичь, изучая информатику. Прежде всего, сделайте акцент на основные понятия и процессы. Когда вы оссвоите азы, обучение не будет требовать больших усилий.