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

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


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

Дана длина ребра куба a. Найти объем куба V = a3 и площадь его поверхности S = 6·a2.


uses
  PT4;

var
  a, v, s: real;

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

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