Question

[НА ПАСКАЛЬ]
составить программы следующим программам:
1. Даны два числа. Найти среднее геометрическое их модулей.
2. Дано натуральное число. Если число (цифра, обозначающее количество единиц) единиц больше числа сотен, то вывести на экран количество тысяч, иначе количество десятков.
3. Дана последовательность целых n чисел. Найти количество неположительных чисел.

Answer 1

Ответ:

1.

var

a, b: real;

begin

Write('Введите два числа через пробел ');

Readln(a, b);

Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))

end.

Объяснение: