Вычислить по заданному радиусу и признаку k, длину окружности (k=1), площадь круга (k=2), объем шара (k=3)

Question

Вычислить по заданному радиусу и признаку k, длину окружности (k=1), площадь круга (k=2), объем шара (k=3)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.