Составить программы через Паскаль 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 *- умножение
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад