Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического

@Настенька27 · Регистрация: 16.01.2013

Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического.

@CodeR · 17.01.2013, 09:34

Pascal

Var a,b,sr:real;
Procedure P(a,b:real;Var sr:real);
Begin
    sr:=(a+b)/2;
End;
Begin
    write('Введите a,b: ');readln(a,b);
    P(a,b,sr);
    writeln('Среднее арифметическое = ',sr:0:2);
End.

@Настенька27 0 / 0 / 1 Регистрация: 16.01.2013 Сообщений: 10
		1
	Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического 17.01.2013, 06:13. Показов 20175. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического

Решение