Ответы на вопрос:
Const pi=3.1416; var n: integer; r: real; begin write('укажите вариант расчета и радиус: '); read(n,r); case n of 1: writeln('длина окружности равна ',2*pi*r); 2: writeln('пдощадь круга равна ',pi*r*r); 3: writeln('объем шара равен ',4/3*pi*r*r*r) else writeln('вариант должет быть равен 1,2 или 3') end end. пример укажите вариант расчета и радиус: 3 11.7 объем шара равен 6708.8365344
Популярно: Информатика
-
nikitosu526.11.2020 14:16
-
сонька2005бедовая18.03.2023 22:12
-
fhtyf22.11.2022 15:17
-
nadgvcdg11.03.2022 13:19
-
ImmortalSpirit03.04.2020 15:09
-
Александр1234567891121.07.2020 19:04
-
kg919111.06.2021 07:23
-
ВсеЗнайка71726.03.2020 17:00
-
Flif19.03.2021 06:49
-
skkzrjyltcm200519.09.2021 21:26