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

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.

Comments

Пример того. как из простейшего задания делают "диссертацию" ))))