Вопрос пользователя:
СРОЧНО! Решение делается в турбо паскале:
“Вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр!”
Илюха отвечает:
var
a: integer;
c1, c2, c3, c4: integer;
begin
for a := 1000 to 9999 do
begin
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(a);
end;
end.