Вычислить по заданному радиусу и признаку k, длину - вопрос №123118319 от superrobbot2000 07.04.2020 05:40

Question

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

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