1

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

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

2

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

1) Тут в смысле надо тебе интеграл найти? если да, то

Program Pr2;

uses crt;

procedure arifm (a, b:integer; var s:real) ;

begin

s: = (a+b) / 2;

end;

procedure proiz (var a, b, c:integer) ;

var i, m1, m2:integer;

begin

m1:=1; m2:=1;

for i:=1 to a do m1:=m1*i;

for i:=1 to b do m2:=m2*i;

if m1>m2 then c:=m1

else c:=m2;

end;

var a, b, c:integer;

s:real;

Begin

clrscr;

readln (a, b) ;

arifm (a, b, s) ;

writeln (s) ;

proiz (a, b, c) ;

writeln (c) ;

end.

2)

Program Pr1;

uses crt;

procedure arifm (var a, b:integer; s:real) ;

begin

s: = (a+b) / 2;

writeln (s:8:3) ;

end;

var a, b:integer;

s:real;

Begin

clrscr;

readln (a, b) ;

arifm (a, b, s) ;

end.