Нахождение среднего арифметического двух чисел

21.06.2014, 17:07. **Показов** 27985. **Ответов** 1

Как записать программу Pascal для нахождения среднего арифметического двух чисел A,B?

@Puporev · 21.06.2014, 18:52

Pascal

var a,b,s:real;
begin
writeln('Введите 2 числа');
readln(a,b);
s:=(a+b)/2;
write('Среднее арифметическое=',s:0:2);
readln
end.

Irihon
		1
	Нахождение среднего арифметического двух чисел 21.06.2014, 17:07. Показов 27985. Ответов 1 Метки нет (Все метки) Как записать программу Pascal для нахождения среднего арифметического двух чисел A,B?

	21.06.2014, 18:52

Решение