1 Написать процедуру вычисления среднего арифметического двух чисел. Числа и результат передаются в качестве параметров, в каком из двух введенных с клавиатуры целых чисел произведение цифр больше. Для подсчета произведения цифр использовать процедуру. 2 Написать процедуру вычисления среднего арифметического двух чисел. Числа и результат передаются в качестве параметров

1. program zz1;

var a, b : integer; / / задаем переменные целого типа

c:real; / / задаем переменные не целого типа

procedure sr (n, m:integer; var k:real);

begin

k: = (n + m) / 2;

end;

begin

write (' введите первое число a '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число b '); / / вводим с клавиатуры второе число

read (b);

sr (a, b, c); / / вызываем процедуру

write (' среднее арифметическое = ', c); / /выводим ответ

end.

2. program zz1;

var a, b, c1, c2 : integer; / / задаем переменные целого типа

procedure pr (n:integer; var k:integer);

var h:integer;

begin

k:=1;

while n 0 do

begin

h:=n mod 10;

k:=k*h;

n:=n div 10;

end;

end;

begin

write (' введите первое число a '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число b '); / / вводим с клавиатуры второе число

read (b);

pr (a, c1); / / вызываем процедуру

pr (b, c2);

if c1 > c2 then write (' в первом числе ') else write (' во втором числе '); / /выводим ответ

end.