Составить программы через паскаль 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 *- умножение
zinabantaeva407
1
03.06.2019 10:40
2
Другие вопросы по теме Информатика
Poznavatel01
20.12.2019 06:36
PolinaEpifanova
20.12.2019 06:43
mn197
20.12.2019 06:46
ДобротаПротивЗла
14.12.2020 23:57
Король234
14.12.2020 23:57
vbratilova4
14.12.2020 23:58
rotaru1930
12.12.2021 11:51
Доширак207
12.12.2021 11:56
Shabalina04
12.12.2021 11:56
Популярные вопросы
- Раскрыть скобки умоляю (1-3x)^2 (2x-1)(2x+1)...
1 - Описания индийского океана по плану (какие материки омывает,моря,...
2 - Отмечу как лучший! выпишите метафоры, эпитеты и олицетворения...
2 - Маша утром собирается в школу. урок начинается 8ч00мин.она вышла...
1 - Правило өткен шақ. какие оканчания?...
1 - Найдите наименьшее и наибольшее значение функции y=1/3x^3-3/2x^2+y...
1 - Всего за три дня за втрой день в 2 раза больше чем в 1 день а...
1 - Обчисліть об єм кисню,необхідний для повного окиснення етанолу...
3 - Впараллелограмме abcd высота bk = 8 см. а высота bh= 24 см,сторона...
3 - До складу профкому обрано 12 осіб. серед них потрібно вибрати...
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.