Решить с использованием процедур. указать выделенные , решаемые процедурами. вычислить сумму тех чисел из заданного отрезка [a, b] (a, b — натуральные), в запись которых входит цифра k.

Pascalabc.net: procedure getdata(var a,b: longint; var k: char);   { ввод исходных данных } begin   write('введите через пробел натуральные границы диапазона: ');   readln(a,b);   write('введите искомую цифру: ');   readln(k) end; procedure summa(a,b: longint; k: char; var s: longint);   { подсчет суммы чисел из интервала [a,b],       содержащих цифру k } var   i: integer;   ci: string; begin   s: =0;   for i: =a to b do begin       str(i,ci);       if pos(k,ci)> 0 then s: =s+i   end    end; var   a,b,sum: longint;   k: char; begin   getdata(a,b,k);   summa(a,b,k,sum);   writeln('сумма чисел, содержащих цифру ',k,' равна ',sum) end. тестовое решение: введите через пробел натуральные границы диапазона: 50 150 введите искомую цифру: 6 сумма чисел, содержащих цифру 6 равна 1589

Объяснение:Даны два массива A и B, состоящих из одинакового числа элементов. Найти среднее арифметическое элементов каждого и сравнить эти значения. Заполнение массива выберите по своему усмотрению.