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.

 

 

Система счисления - это способ для записи чисел и набор правил выполнения операций над ними. числа записываются при набора символов, обычно называемого цифрами. количество различных цифр, которое необходимо для  представления чисел, определяет основание системы счисления. например, если для записи чисел используется десять разных цифр (0,1,2,3,4,5,6,7,8,9), система счисления называется десятичной. если таких цифр две (0,1), система счисления называется двоичной, если восемь (0,1,2,3,4,5,6,7) - мы говорим о восьмеричной системе счисления. в шестнадцатиричной системе используется 16 цифр (от 0 до 15), но поскольку у нас только десять значков, изображающих цифры, то числа от 10 до 15 изображают буквами латинского алфавита и полный набор шестнадцатиричных цифр содержит символы 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f. каждая цифра образует разряд. рассмотренное выше число 123 записано в десятичной системе счисления и имеет три разряда: сотни, десятки и единицы. в системе счисления с иным основанием точно также различаются разряды. например, 61dc4 - это шестнадцатиричное число, которое имеет пять разрядов. во избежание путаницы, если есть сомнения, что основание системы счисления отличается от десяти, следует указывать его. обычно снование системы записывается в виде нижнего индекса, но можно также использовать и круглые скобки. 125 (8), 347 (16), 1001001 (2), 1000 (10). важно запомнить два правила: 1. самое меньшее однозначное число всегда 0, самое большее на единицу меньше основания системы счисления. 2. если к самом старшему однозначному числу в любой системе счисления прибавить единицу, то получится 10 в этой системе счисления, т.е. произойдет сброс в ноль значения в текушем разряде и +1 пойдет в следующий разряд. на этом правиле основана практически вся арифметика.

Procedure writedms(r: real); var   dd, s: real;   d, m: integer; begin   dd : = 180 * r / pi;   d : = trunc(dd);   dd : = 60 * (dd - d);   m : = trunc(dd);   s : = 60 * (dd - m);   writeln('=', d, ' град ', m, ' мин ', s: 0: 2, ' сек') end; var   a, b, c, dd: real; begin   write('введите через пробел стороны треугольника a,b,c: ');   readln(a, b, c);   writeln('значения углов треугольника');   write('а');   dd : = arccos((sqr(b) + sqr(c) - sqr(a)) / (2 * b * c));   writedms(dd);   write('b');   dd : = arccos((sqr(a) + sqr(c) - sqr(b)) / (2 * a * c));   writedms(dd);   write('c');   dd : = arccos((sqr(a) + sqr(b) - sqr(c)) / (2 * a * b));   writedms(dd); end. тестовое решение: введите через пробел стороны треугольника a,b,c: 5.8 3.2 4.9 значения углов треугольника а=88 град 53 мин 7.58 сек b=33 град 28 мин 41.54 сек c=57 град 38 мин 10.88 сек