Дано натуральное четырехзначное число,верно ли, что все его цифры различны? Написать программу.

Question

Дано натуральное четырехзначное число,верно ли, что все его цифры различны? Написать программу.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,c,d,e:integer; begin read(a); b:=a mod 10; a:=a div 10; c:=a mod 10; a:=a div 10; d:=a mod 10; a:=a div 10; e:=a mod 10; if (b<>c) and (b<>d) and (b<>e) and (c<>d) and (c<>e) and (d<>e) then write('net povtorov') else write('est povtori'); end.