Составить программу, печатающую значение true, если указанное высказывание является истинным и false- в противном случае а) все цифры данного четырёхзначного числа n различны
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.
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.