[НА ПАСКАЛЬ]
составить программы следующим программам:
1. Даны два числа. Найти среднее геометрическое их модулей.
2. Дано натуральное число. Если число (цифра, обозначающее количество единиц) единиц больше числа сотен, то вывести на экран количество тысяч, иначе количество десятков.
3. Дана последовательность целых n чисел. Найти количество неположительных чисел.
составить программы следующим программам:
1. Даны два числа. Найти среднее геометрическое их модулей.
2. Дано натуральное число. Если число (цифра, обозначающее количество единиц) единиц больше числа сотен, то вывести на экран количество тысяч, иначе количество десятков.
3. Дана последовательность целых n чисел. Найти количество неположительных чисел.
More Questions From This User See All
Answers & Comments
Ответ:
1.
var
a, b: real;
begin
Write('Введите два числа через пробел ');
Readln(a, b);
Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))
end.
Объяснение: