Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. 

Program Anadra;

uses crt;

var a,b,c,d,e,f: integer;

x,y: real;

begin

writeln(‘Введите два числа’);

readln(a);

readln(b);

с:=sqr(a);

d:=sqr(b);

x:=(c+d)/2;

e:=abs(a);

f:=abs(b);

y:=(e+f)/2;

writeln(‘Среднее арифметическое их квадратов ‘,x);

writeln(‘среднее арифметическое их модулей ‘,y);

end.

Разбор решения:

1)Итак, для начала нам надо заполнить раздел описания переменных.

Integer:

a - первое число

b - второе число

с - квадрат первого числа

d - квадрат второго числа

e - модуль первого числа

f - модуль второго числа

Real:

x - среднее арифметическое их квадратов

y — среднее арифметическое их модулей.

2)Теперь сама программа. Для начала просим пользователя ввести 2 числа и он вводит их.

writeln(‘Введите два числа’);

readln(a);

readln(b);

3)Теперь считаем квадраты чисел.

с:=sqr(a);

d:=sqr(b);

4)Считаем среднее арифметическое их квадратов.

x:=(c+d)/2;

5)Считаем модули чисел.

e:=abs(a);

f:=abs(b);

6)Считаем среднее арифметическое их модулей.

y:=(e+f)/2;

7)Теперь выводим результаты на экран.

writeln(‘Среднее арифметическое их квадратов ‘,x);

writeln(‘среднее арифметическое их модулей ‘,y);