begin
var (a, b) := ReadReal2('Введите два числа:');
Println('Ср.арифметическое', (a + b) / 2);
Println('Ср.геометрическое модулей', Sqrt(Abs(a * b)));
end.
var a,b:integer;
c,d:real;
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);
begin
var (a, b) := ReadReal2('Введите два числа:');
Println('Ср.арифметическое', (a + b) / 2);
Println('Ср.геометрическое модулей', Sqrt(Abs(a * b)));
end.
Введите два числа: -56.32 138Ср.арифметическое 40.84 Ср.геометрическое модулей 88.1598548093178var 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.