Описать процедуру mean (x, y, amean, gmean), вычисляющую среднее арифметическое amean = (x+y)/2 и среднее двух положительных чисел x и y (x и y — входные, amean и gmean — выходные параметры вещественного типа). с этой процедуры найти среднее арифметическое и среднее для пар (a, b), (a, c), (a, d), если даны a, b, c, d

Procedure mean(x,y: real; var amean,gmean: real); begin amean: =(x+y)/2; gmean: =sqrt(x*y); end; var     a,b,c,d,s: real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); write('d = '); readln(d); writeln; mean(a,b,s,b); writeln('amean(a,b) = ',s); writeln('gmean(a,b) = ',b); writeln; mean(a,c,s,c); writeln('amean(a,c) = ',s); writeln('gmean(a,c) = ',c); writeln; mean(a,d,s,d); writeln('amean(a,d) = ',s); writeln('gmean(a,d) = ',d); end. a = 1 b = 2 c = 3 d = 4 amean(a,b) = 1.5 gmean(a,b) = 1.4142135623731 amean(a,c) = 2 gmean(a,c) = 1.73205080756888 amean(a,d) = 2.5 gmean(a,d) = 2

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

число-общее

столица росси - единичное

учебник - общее

житель москвы - общее

столица - общее

самая высокая гора - единичное

пушкин - единичное

сказочный персонаж - общее

баба яга- единичное