Статистика
Главная » Статьи » Решения задач » Решения задач из задачника PascalABC

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

Begin6. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V=a·b·c и площадь поверхности S=2·(a·b+b·c+a·c).
var a, b, c, v, s: real;
begin
  write('Введите длины ребер прямоугольного параллелепипеда ->');
  readln(a, b, c);
  v:=a*b*c;
  s:=2*(a*b+b*c+a*c);
  writeln('Объем прямоугольного параллелепипеда = ', v:6:2);
  writeln('Площадь поверхности прямоугольного параллелепипеда = ', s:6:2);
end.

Категория: Решения задач из задачника PascalABC | Добавил: admin (25.01.2015)
Просмотров: 1673 | Рейтинг: 5.0/1
Всего комментариев: 0
Вход на сайт