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

Question

Информатика

Евдося

12 февраля, 23:10

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

+3

Ответы (1)

Знаете ответ?

Иваныч · Answer 1

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.