Вычислить по заданному радиусу и признаку k, длину - вопрос №31189961 от ivanova1987lena 06.03.2021 13:52

Question

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

ivanova1987lena · 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....