Составить программу, печатающую значение true, если указанное высказывание является истинным и false- в противном случае а) все цифры данного четырёхзначного числа N различны

Составить программу, печатающую значение 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы