Помогите написать программу ** паскале: Даны 3 числа, если это куб-найти объём, если это...

Question

Помогите написать программу на паскале: Даны 3 числа, если это куб-найти объём, если это параллелепипед-найти площадь поверхности

Answer 1

var a,b,c,k: real;

begin

write('Введите 1 число: ');

readln(a);

write('Введите 2 число: ');

readln(b);

write('Введите 3 число: ');

readln(c);

if (a=b) and (b=c) and (a=c) then

begin

k:=a*b*c;

writeln('Объем куба равен ',k);

end else

begin

k:=2*(a*b+b*c+a*c);

writeln('Площадь поверхности параллелипипеда равна ',k);

end;

end.