Составить программу, печатающую значение true, если указанное высказывание является...

Question

Составить программу, печатающую значение true, если указанное высказывание является истинным и false- в противном случае

а) все цифры данного четырёхзначного числа N различны

Answer 1

Var N:integer;
r1,r2,r3:byte;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(N);
r1:=N div 1000;
r2:=(N div 100) mod 10;
r3:=(N div 10) mod 10;
N:=N mod 10;
Write((r1<>r2)and(r1<>r3)and(r1<>N)and(r2<>r3)and(r2<>N)and(r3<>N))
End.