Сколько существует трёхзначных чисел, все цифры которых различны?

Есть такая формула в комбинаторике называющаяся разложением вроде как,она записывается в виде  а,внизу буква n,вверху k и это равно n! /(n-k)! ( т.е. эн факториал деленное на эн минус ка факториал).это я все к чему,к тому что я так думаю по этой формуле можно узнать ответ на твой вопрос пишем а,внизу 10,вверху 3(т.к. из 10  чисел( 0 1 2 3 4 5 6 7 8 9 )  выбираем трехзначные ) и это равно 10! /(10-3)! =10! /7! =720 трехзначных  цифр существует,в которых все цифры различны

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.

1)

var a, b: integer;

begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.

2)

var a: integer;

begin readln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

var a: integer;

begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.