задача в паскале: среди четырехзначных чисел выбрать те, у которых цифры попарно различны

1

Ответы и объяснения

Лучший Ответ!
2012-02-22T09:53:54+04:00

var
i, n, a: integer;
c1, c2, c3, c4: integer;

begin
readln(n);
for i := 1 to n do
begin
readln(a);
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4)
then
writeln('цифры попарно различны')
else
writeln('не все цифры попарно различны');
end;
end.