Question

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

Answer 1

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

Answer 2

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.