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

Question

Информатика

Фелицата

3 октября, 07:25

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

+1

Ответы (1)

Знаете ответ?

Меркурия · Answer 1

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 (bc) and (bd) and (be) and (cd) and (ce) and (de) then write ('net povtorov')

else write ('est povtori') ;

end.