Ответы на вопрос:
Var a: real; k: byte; begin writeln('1 - l okp.'); writeln('2 - r okp.'); writeln('3 - d okp.'); readln(k); readln(a); write('s = '); case k of 1: writeln(sqr(a) / (4 * pi): 0: 2); 2: writeln(pi * sqr(a): 0: 2); 3: writeln(pi * sqr(a / 2): 0: 2); else writeln('? '); end; end.
Популярно: Информатика
-
Кпоперша108.10.2021 19:34
-
dimanicich10.02.2023 23:21
-
Unforgettable7717.05.2023 08:03
-
DruNastya01.03.2021 13:04
-
Мила541107.09.2022 13:49
-
ЛориXD22.05.2020 16:28
-
5778824.03.2021 22:03
-
xeniaverner25.04.2021 00:02
-
andreywwwoooandrey30.04.2022 02:17
-
Vlarizon9825.05.2020 00:53