Question

даны 3 целых числа вычислить среднее арифметическое если сумма первых двух больше суммы вторых двух в противном случае вывести сообщение (не выполняется) турбо паскаль

Answer 1

Ответ:

Объяснение:

function Srzach2(a, b: Integer): Real; begin Srzach2:=(a+b)/2 end;

function Srzach3(a, b, c: Integer): Real; begin Srzach3:=(a+b+c)/3 end;

var a, b, c: Integer;

begin

 Write('Введите 3 числа: '); ReadLn(a,b,c);

 WriteLn('Средние: ',Srzach2(a,b):0:2,' ',Srzach2(b,c):0:2,' ',Srzach2(a,c):0:2,' ',Srzach3(a,b,c):0:2);

end.