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; beginclrscr; 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; beginclrscr; readln(a,b); arifm(a,b,s); end.

вычислительный эксперимент — метод изучения устройств или процессов с моделирования. он предполагает, что вслед за построением модели проводится ее численное исследование, позволяющее «проиграть» поведение исследуемого объекта в различных условиях или в различных модификациях численное исследование модели дает возможность определять разнообразные характеристики процессов, оптимизировать конструкции или режимы функционирования проектируемых устройств. более того, случается, что в ходе вычислительного эксперимента исследователь неожиданно открывает новые процессы и свойства, о которых ему ранее ничего не было известно.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.