Простая задача

[utyyf]

Сообщение от Stilet

Круто!

P.S. Еще раз внимательно прочти мой пост с решением, ибо ты там знак не тот поставил в 17-м посте.

Знак вроде тот - щас проверяю - макс дает, а если там минус поставить - даст вроде минимум

[vit_galina]

Сообщение от utyyf

Какой тут универ? - 9-й класс!!!
Он на нас наехал, что домашку не делаем - навалил задач и сказал, что на контрольной по линейным даст любую из них наугад. У меня тут много таких.

Молодец Препод, не дает мозгам застаиваться.
Будь повнимательней со знаками и скобками.
Изобрази тексты заданий, очень интересно посмотреть.

[utyyf]

Вроде все:

program maxim;
var
n,n1,n2,n3,max,min,sred:integer;
begin
read(n);
n1:=n div 100;
n:=n mod 100;
n2:=n div 10;
n3:=n mod 10;
max:=(n1+n2+ abs(n1-n2)) div 2;
max:=(max+n3 + abs(max-n3)) div 2;
min:=(n1+n2-abs(n1-n2)) div 2;
min:=(min+n3-abs(min-n3)) div 2;
sred:=n1+n2+n3-max-min;
n:=max*100+sred*10+min;
writeln(n);
end.

Работает!!!

[utyyf]

Сообщение от vit_galina

Изобрази тексты заданий, очень интересно посмотреть.

Почитаю задания, еще какую-нибудь выброшу

[Stilet]

Малацца, запишем это в анналы.

[mutabor]

Можно немного усовершенствовать, и преподу сказать "Это типа чтоб вам удобнее было проверять"

program maxim;
var
n,n1,n2,n3,max,min,sred:integer;
begin
repeat
read(n);
n1:=n div 100;
n:=n mod 100;
n2:=n div 10;
n3:=n mod 10;
max:=(n1+n2+ abs(n1-n2)) div 2;
max:=(max+n3 + abs(max-n3)) div 2;
min:=(n1+n2-abs(n1-n2)) div 2;
min:=(min+n3-abs(min-n3)) div 2;
sred:=n1+n2+n3-max-min;
n:=max*100+sred*10+min;
writeln(n);
writeln;
until false;
end.