Написать программу нахождения объёма и площади поверности прямоугольного параллелепипеда

Question

Информатика

Марина

17 апреля, 01:14

Написать программу нахождения объёма и площади поверности прямоугольного параллелепипеда

+3

Ответы (1)

Знаете ответ на вопрос?

Данила · Answer 1

Program superprogram;

var

a, b, c, d, m:integer;

begin

writeln ('Введите стороны a, b, c отделяя их пробелом') ;

readln (a, b, c) ;

d:=a*b*c;

writeln ('Объём - ', d) ;

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

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

end.