Ответы на вопрос:
№1 var a,b,x,z,sra,srg: real; begin writeln('введите 4 числа'); read(a,b,x,z); sra: =(a+b+x+z)/4; srg: =power(a*b*x*z, 1/4); writeln('среднее арифметическое этих чисел =',sra); writeln('среднее этих числе =',srg); end. №2var a,b,sra,srg: real; begin writeln('введите 2 числа'); read(a,b); sra: =(a+b)/2; srg: =power(a*b, 1/2); writeln('среднее арифметическое этих чисел =',sra); writeln('среднее этих числе =',srg); writeln('модули этих чисел a=',abs(a), ' b=',abs(b)) end. №3var a,b,c: real; begin writeln('введите длину катетов и гипотенузы соотвественно'); read(a,b,c); if a=0 then a: =sqrt(sqr(c)-sqr(b)); if b=0 then b: =sqrt(sqr(c)-sqr(a)); if c=0 then c: =sqrt(sqr(a)+sqr(b)); writeln('площадь треугольника =',a*b*0.5); writeln('периметр треугольника =',a+b+c); end.
Популярно: Информатика
-
Asuacom23.07.2021 02:03
-
123295529.10.2022 12:00
-
ra1si1ka110.02.2021 18:10
-
азамат12601.11.2021 16:41
-
WirexiaEnderman04.05.2023 05:31
-
rada18224.05.2023 20:29
-
Bogqwerty03.07.2021 02:03
-
Mary09060509.04.2020 18:22
-
kryp429.10.2022 06:13
-
иосиф1926.04.2023 06:08