Помогите с информатикой,пожалуйста. Задачи. Старик в первый год после свадьбы поймал для своей жены три золотые рыбки.Каждый сле
1 ответ:
Читайте также
Вычисление производим по формуле
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.
<em><u>Тестовое решение:</u></em>
Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95
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.
<em><u>Тестовое решение:</u></em>
Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95