Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего

@Екатерина) · Регистрация: 17.10.2011

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

Кто может решить данную задачку с помощью циклов в паскале АВС?
Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего.

@Puporev · 01.11.2011, 09:17

Это точно не решается циклами. Здесь оператор ветвления if then else

@Екатерина) · 01.11.2011, 09:19 **[ТС]**

а если так, то какая программа должна быть?

@Puporev · 01.11.2011, 09:26

Pascal

uses crt;
var a,b,c,mn,mx,sr:integer;
begin
writeln('Введите 3 целых числа:');
read(a,b,c);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mn-mx;
write('Среднее число=',sr);
end.

@Екатерина) 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 20
		1
	Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего 01.11.2011, 09:02. Показов 22021. Ответов 3 Метки нет (Все метки) Кто может решить данную задачку с помощью циклов в паскале АВС? Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.11.2011, 09:17	2
	Это точно не решается циклами. Здесь оператор ветвления if then else 0

@Екатерина) 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 20
	01.11.2011, 09:19 [ТС]	3
	а если так, то какая программа должна быть? 0

Опции темы