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

Question

Информатика

Федоза

22 ноября, 22:06

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

+4

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