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

Question

Информатика

Петоша

8 октября, 08:41

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

+5

Ответы (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.