Question

Составить программы через Паскаль ABC
1. Дана длина ребра куба а. Найти объем куба V = a3 ( третья степень ) и площадь его поверхности S = 6 *a2.  а = 2.00 V = 8.000 S = 24.000
2. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = а*b*c
и площадь поверхности S = 2*( а*b + b*c + a*c ) a = 8.40  b = 3.80 c = 9.40 V = 300.048
S = 293.200 
3. Найти длину окружности L и площадь круга S заданного радиуса R : L = 2*П (пи)*R, S = П (пи)*R2 (в квадрате) П = 3.14      R = 1.50   L = 9.420   S = 7.065

P.S *- умножение 

Answer 1

1)

var

   a: real;

begin

   readln(a);

   writeln('S = ', 6 * a * a);

   writeln('V = ', a * a * a);

end.

2)  

var

   a, b, c: real;

begin

   readln(a, b, c);

   writeln('S = ', 2 * (a * b + b * c + a * c));

   writeln('V = ', a * b * c);

end.

3)

var

   r: real;

begin

   readln(r);

   writeln('P = ', 2 * 3.14 * r);

   writeln('S = ', 3.14 * r * r);

end.