begin Write('Введите два числа через пробел '); Readln(a, b); Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2); Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b))) end.
Тестовое решение: Введите два числа через пробел -13.5 17.43 Среднее арифметическое кубов равно 1417.4722035 Среднее геометрическое модулей равно 15.3396544941534
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.
begin Write('Введите целое трехзначное положительное число ->'); Readln(x); a := x mod 10; y := 100 * a + (x div 10); Writeln('Первоначальное число было: ', y); b := y mod 100; Writeln('Зачеркнули первую цифру: ', b); b := 10 * b; Writeln('Умножили на 10: ', b); b := b + (y div 100); Writeln('Прибавили зачеркнутую цифру: ', b); Writeln('И получили введенное нами число - результат') end.
Тестовое решение: Введите целое трехзначное положительное число ->183 Первоначальное число было: 318 Зачеркнули первую цифру: 18 Умножили на 10: 180 Прибавили зачеркнутую цифру: 183 И получили введенное нами число - результат
a, b: real;
begin
Write('Введите два числа через пробел ');
Readln(a, b);
Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2);
Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))
end.
Тестовое решение:
Введите два числа через пробел -13.5 17.43
Среднее арифметическое кубов равно 1417.4722035
Среднее геометрическое модулей равно 15.3396544941534
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.
x, a, b, c, y: integer;
begin
Write('Введите целое трехзначное положительное число ->');
Readln(x);
a := x mod 10;
y := 100 * a + (x div 10);
Writeln('Первоначальное число было: ', y);
b := y mod 100;
Writeln('Зачеркнули первую цифру: ', b);
b := 10 * b;
Writeln('Умножили на 10: ', b);
b := b + (y div 100);
Writeln('Прибавили зачеркнутую цифру: ', b);
Writeln('И получили введенное нами число - результат')
end.
Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат