USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
ReadLn(n);
m1:=n;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
if n1=n2 then if n1=n3 then writeln('vse =');
if n1=n2 then writeln('1 i 3 =');
if n2=n3 then writeln('2 i 3 =');
if n1=n3 then writeln('1 i 2 =')
else writeln('<>');
END.
Проверяйте, что непонятно - спрашивайте.
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
Всего хорошего.
Рядок 11
Объяснение:
На диаграмме три сектора, значит диапазон должен содержать 3 значения. По таблице видно, что в столбцах 4 значения, а в строках - 3, значит столбцы не подходят, а искать нужно в строках.
На диаграмме 2 больших, почти одинаковых сектора и 1 значительно меньший, значит среди строк нужно искать такую, в которой 2 близких или одинаковых значения, а третье значение меньше двух других.
Анализируем:
9 строка: три различных значения, двух одинаковых или очень близких по величине значений нет. Не подходит.
10 строка: два одинаковых значения - 15, и третье 17, но 17 > 15, в таком случае на диаграмме был бы один большой сектор и два сектора поменьше. Не подходит.
11 строка: 56 и 57 - близкие по величине, 11 значительно меньше двух других значений в столбце. Подходит
12 строка. Все три значения разные, нет такого значения, которое бы было существенно меньше двух других. Не подходит.
