Super Mario

Доброго времени суток.Помогите сотставить програмvу сортировки по возрастанию значений трёх переменных:A,B,C.(желательно на уровне 9 класса )по учебнику Семакина Заголова Русаккова Шестакова п.37 5 задание.

EMPORIO

основу дам, а дальше сам

var
a,b,c:integer;
begin
write ('a= ');
readln (a);
write ('b= ');
readln (b);
write ('c= ');
readln (c);

begin
if (b+c)<(a*2) then writeln ('а ')
else
if (a+c)<(b*2) then writeln ('b');
else
writeln ('c');
end;
end.

как то так...)
Такое можешь как нибудь по другому сделать

Pavlucha

EMPORIO, я изучаю freepascal,только я не понял как ты решил эту задачу.(b+c)<(a*2) это что формула специальная или как?

EMPORIO

Pavlucha, та не, просто так проще.
смотри, возьмем 3 числа
А=3, В=1, С=4, так?
вот и смотри.к примеру, если число В предположительно должно быть больше чем два других, соответственно В+В всегда больше чем сумма других двух (а+с) и это выглядит (1+1)>(3+4) -- такого быть не может, так? Значит переходим к следующему:
(С+С)>(А+В) --- т.е. (4+4)>(3+1) -- соответственно 8>4, а если уравнение правильное, значит С больше че два других

Pavlucha

И где ты такому научился?Только не говори что в школе.

EMPORIO

Скорее сам интересовался)

Super Mario

а разве так получится именно по возрастанию??вроде ведь по убыванию.
Мне весь алгоритм не нужен)
просто основное,как из этих вычислить меньшее.

EMPORIO

Super Mario,
ой, это типа как найти самое большое число...)
Написать ту все таки надо или уже нет?)

Super Mario

не не надо..)
сам ботанул)
5-ка))))

EMPORIO

Молодца))
Если что-пиши)

varvara

Здравствуйте, помогите составить программы на pascal:

1)Составить алгоритм и программу, определяющую произведение целых положительных чисел в интервале от M до N кратных 7. M и N записываются с клавиатуры.
2) Составить алгоритм и программу, определяющую количество целых положительных чисел в интервале от А до В кратных 3. А и В записываются с клавиатуры.
3)Составить алгоритм и программу, определяющую сумму целых положительных чисел в интервале от В до С,
кратных 5. В и С записываются с клавиатуры.

artem1442

varvara, заходите сюда http://pascallab.ru, сделаем.