Найти сумму двух наибольших из трех различных чисел

@Daxl · Регистрация: 14.04.2010

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

Еще одна задача:
Составить программу нахождения суммы двух наибольших из трех различных чисел.
И еще одна:
Даны две тройки вещественных чисел. В каждой тройке все числа различные . Найти среднее арифметическое средних чисел каждой тройки ( средним назовем токое число в тройке, которые больше наименьшего из чисел данной тройки, но меньше наибольшего)

@Puporev · 15.09.2010, 10:45

1.

Pascal

uses crt;
var a,b,c,mn,mx,sr:real;
begin
clrscr;
writeln('Введите 3 числа:');
readln(a,b,c);
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
sr:=a+b+c-mn-mx;
write('Произведение двух наибольших=',mx*sr:0:2);
readln
end.

Вторую давай сам, по образу....

@Daxl 2 / 2 / 0 Регистрация: 14.04.2010 Сообщений: 33
		1
	Найти сумму двух наибольших из трех различных чисел 15.09.2010, 09:40. Показов 8718. Ответов 1 Метки нет (Все метки) Еще одна задача: Составить программу нахождения суммы двух наибольших из трех различных чисел. И еще одна: Даны две тройки вещественных чисел. В каждой тройке все числа различные . Найти среднее арифметическое средних чисел каждой тройки ( средним назовем токое число в тройке, которые больше наименьшего из чисел данной тройки, но меньше наибольшего) 0

Опции темы

Найти сумму двух наибольших из трех различных чисел

Решение