Составить программы через паскаль 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 *- умножение
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.