Информатика(паскаль) даны два действительных числа. найти среднее арифметическое этих чисел и среднее их модулей.

PhoenixStep PhoenixStep    1   01.10.2019 10:00    10

Ответы
polina2004121 polina2004121  09.10.2020 07:32
PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите два числа:');

 Println('Ср.арифметическое', (a + b) / 2);

 Println('Ср.геометрическое модулей', Sqrt(Abs(a * b)));

end.

Введите два числа: -56.32 138Ср.арифметическое 40.84 Ср.геометрическое модулей 88.1598548093178
ПОКАЗАТЬ ОТВЕТЫ
inchinusaozkhxs inchinusaozkhxs  09.10.2020 07:32

var a,b:integer;


c,d:real;


begin


a:=random(50); // Если нужно вводить своё число, то тогда "a:= *заданное число*" или, иначе, readln(a) "


writeln('Число "a" приняло значение ', a); // Если будет один из двух показанных выше, то эта строка не является обязательной.


b:=random(100); // Если нужно вводить своё число, то тогда "b:= *заданное число*" или, иначе, readln(b) "


writeln('Число "b" приняло значение ', b); // Если будет один из двух выше, то эта строка не является обязательной.


c:=((a+b)/2);


writeln('Среднее арифметическое данных двух чисел ', c);


d:=(sqrt(abs(a*b)));


writeln('Среднее геометрическое данных чисел ', d);


end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика