Создать программу! тема "организация подпрограмм через функцию" дан параллепипед с измерениями а,b, c. составить программу для нахождения площади полной поверхности, используя подпрограмму нахождения площади прямоугольника.
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
) В числе не меньше двух цифр, которые меньше шести. Следовательно, в числе две цифры в диапазоне от 0 до 5, а третья может быть и больше. 2) В числе не меньше двух четных цифр. Следовательно, в числе одно цифра может быть и нечетной. 3) Если число должно быть наибольшим, то его старшая цифра должна быть не меньше остальных. Учитывая 1) и 2) выбираем в качестве старшей цифры девятку. Тогда две оставшиеся меньше шести и обе четные. 4) С учетом того, что число должно быть наибольшим, выберем цифры четыре.
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