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

Question

Информатика

Ксюня

26 сентября, 13:12

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

+2

Ответы (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.