дано натуральное число n (n<или=9999) учитивая всё читире цифры числа, узнать, есть ли правельным что оно имеет все разние цыфры. (паскаль)

Question

Информатика

Митрофаний

14 июня, 16:45

дано натуральное число n (n<или=9999) учитивая всё читире цифры числа, узнать, есть ли правельным что оно имеет все разние цыфры. (паскаль)

+2

Ответы (1)

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

Софроний · Answer 1

function check (n:word) : boolean;

var i, j:word; a:array[0 ... 3]of byte;

begin

check:=true;

for i:=0to 3do begin a[ i]:=n mod 10; n:=n div 10; end;

for i:=0to 2do for j:=i+1to 3do if a[ i]=a[j]then check:=false;

end;