• admin
  • Комментариев: 0
  • Просмотров: 471
  • 27-10-2015, 00:20

Умова: Дано довжини ребер a, b, c прямокутного паралелепіпеда. Знайти його об'єм V = a·b·c і площу поверхні S = 2·(a·b + b·c + a·c).

Блок - схема:

Рішення: 

 program Begin6;  var  v, a, b, c, s: real;  begin  write('Введіть значення a, b, c: ');  readln(a, b, c);  v := a * b * c;  s := 2 * (a * b + b * c + a * c);  writeln('Об*ем паралелепіпеда -- ', v);  writeln('Площа поверїні паралелепіпеда -- ', s); end.