Вопрос по информатике:
Решите задачу по информатике на Pascal.
Даны три числа вывести среднее число но при этом числа не могут быть одинаковыми.
Например 9, 3, 14 нужно вывести 9.
Или 15, 6, 1 нужно вывести 6.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.06.2016 06:50
- Информатика
- remove_red_eye 2808
- thumb_up 8
Ответы и объяснения 2
var
a,b,c, max, min:real;
begin
Readln(a,b,c);
if (a > b) and (a > c) then Max:= a;
if (c > b) and (c > a) then Max:= c;
if (b > a) and (b > c) then Max:= b;
if (a < b) and (a < c) then Min:= a;
if (c < b) and (c < a) then Min:= c;
if (b < a) and (b < c) then Min:= b;
if (a min) and (a max) then writeln(a);
if (b min) and (b max) then writeln(b);
if (c min) and (c max) then writeln(c);
end.
Пример:
-9 3 6
3
- 19.06.2016 15:08
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.