Question

данны длины ребер a,b,c прямоугольного параллелепипеда. Найти его объем V=a×b×c и площадь поверхности S=2×(a×b+b×c+a×c).

На языке паскал айбиси

Answer 1

var a,b,c,s,v:real;
begin
readln(a);
readln(b);
readln(c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
writeln('объем ',v,' площадь поверхности  ',s);
 end.