begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.
Ответ дал: Гость
ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в. в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п. так как петя – троечник, то петя не с. так как ваня – отличник, то ваня не в. саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.
Популярные вопросы