Дано натуральное число n (n < 9999). Выяснить, различны ли все четыре цифры этого числа

[fanatloko]

Дано натуральное число n (n < 9999). Выяснить, различны ли все четыре цифры этого числа (с учетом четырех цифр). Например, в числе 3678 все цифры различны, в числе 0023 — нет.
Заранее благодарю!)

[type_Oleg]

Вот ..

function WseCyfryRaznye(n:Integer):Boolean;
var r1,r2,r3,r4:Byte;
begin
//С помощью операций mod и div получаете эти 4 цифры r1,r2,r3,r4

Result:=(r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4);
end;

[Poma][a]

Всё бы хорошо, НО стоит задача определить все ли четные цифры числа различны

[BDA]

Poma][a, все же четыре (4), а не четные.

function different(n: integer): boolean;
var
    i, m: byte;
    k: integer;
begin
    k := 0;
    for i := 1 to 4 do
    begin
        m := n mod 10;
        if k shr m and 1 = 0 then
            k := k or (1 shl m)
        else begin
            different := false;
            exit;
        end;
        n := n div 10;
    end;
    different := true;
end;

Сообщение от Poma][a

А вот что значит не найти в браузере как менять масштаб и сидеть без очков.. Я дико извиняюсь..

Да в очках тоже не мудрено - порядок букв.

[Poma][a]

А вот что значит не найти в браузере как менять масштаб и сидеть без очков.. Я дико извиняюсь..

[fanatloko]

Огромное спасибо, Вам!)