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.