Блог учителя Информатики

Решение задачи Begin6


Условие задачи:

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


uses
  PT4;

var
  a, b, c, v, s: real;

begin
  Task('Begin6');
  read(a, b, c);
  v := a * b * c;
  s := 2 * (a * b + b * c + a * c);
  write(v, s);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий