Вычислить по заданному радиусу и признаку k, длину окружности (k=1), площадь круга (k=2), объем шара (k=3)
10-11 класс
|
var k: integer; r: real;
begin
read(r, k);
if k = 1
then
writeln(2 * pi * r);
if k = 2
then
writeln(pi * sqr(r));
if k = 3
then
writeln(4 / 3 * pi * sqr(r) * r);
end.
Другие вопросы из категории
В числовом массиве из 10 элементов, заданных случайным
образом от -100 до 100:
Переведите число 2554 из арабской системы счисления в римскую.
2) переведите число MCMLXII из римской системы счисления в арабскую
Читайте также
Дан радиус (R) окружности. Найти длину окружности (С) и площадь круга (S). С=2 ПR. S=ПR^2
перечисленных элементов и его значению вычислить площадь круга
тами результата "треугольник существует" треугольник не существует". для существзвания треугольника необходимо, чтобы сумма длин любых двух сторон была больше длины третьей стороны. внутри функции ЕСЛИ используйте условие: И(а+в>с; а+с> в; в+с> а) . помогите пожалуйста не получается формулу вписать.. ( ms excel)