PascalABC
Объяснение:
var
a, b, c, d, sr: real;
begin
Write('Введите четыре числа через пробел: ');
ReadLn(a, b, c, d);
sr := (a + b + c + d) / 4;
WriteLn('Среднее арифметическое данных чисел равно ', sr:4:2);
end.
PascalABC
Объяснение:
var
a, b, c, d, sr: real;
begin
Write('Введите четыре числа через пробел: ');
ReadLn(a, b, c, d);
sr := (a + b + c + d) / 4;
WriteLn('Среднее арифметическое данных чисел равно ', sr:4:2);
end.