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

Question

Информатика

Устин

20 июня, 00:06

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

+3

Ответы (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.