Question

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

Answer 1

Program x; Uses crt; Var a,b,c,V,S:integer; Begin Writeln ('Введите значения a,b,c'); Readln (a,b,c); V:=a*b*c; S:=2·(a·b + b·c + a·c); Writeln ('Объем='',V); Writeln ('Площадь поверхности ='',V); end.

Answer 2

Скриншот кода и сама программа ниже: