Дано три целых числа, вычислить среднее арифметическое чисел используя функцию

@nikitsiuk · Регистрация: 24.02.2016

Студворк — интернет-сервис помощи студентам

Добрый день.
Помогите пожалуйста написать программу!
Дано три целых числа, вычислить среднее арифметическое двух чисел (первого и второго, первого и третьего, второго и третьего) и среднее арифметическое трех чисел:
a)Функция Srzach2 находит среднее арифметическое двух чисел);
b)Функция Srzach3 (находит среднее арифметическое трех чисел);

@bormant · 22.06.2016, 19:07

Pascal

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.

@nikitsiuk · 22.06.2016, 19:11 **[ТС]**

Спасибо большое!

@nikitsiuk 0 / 0 / 0 Регистрация: 24.02.2016 Сообщений: 17
		1
	Дано три целых числа, вычислить среднее арифметическое чисел используя функцию 22.06.2016, 17:42. Показов 3518. Ответов 2 Метки нет (Все метки) Добрый день. Помогите пожалуйста написать программу! Дано три целых числа, вычислить среднее арифметическое двух чисел (первого и второго, первого и третьего, второго и третьего) и среднее арифметическое трех чисел: a)Функция Srzach2 находит среднее арифметическое двух чисел); b)Функция Srzach3 (находит среднее арифметическое трех чисел); 0

@nikitsiuk 0 / 0 / 0 Регистрация: 24.02.2016 Сообщений: 17
	22.06.2016, 19:11 [ТС]	3
	Спасибо большое! 0

Опции темы

Дано три целых числа, вычислить среднее арифметическое чисел используя функцию

Решение