Среди трехзначных натуральных чисел вывести в строчку те, у которых все цифры различны
Ответы на вопрос
Ответил Аноним
0
Var
A,b,c,d:integer;
Begin
For A:= 100 to 999 do
Begin
b:=A div 100;
c:=(A div 10) mod 10;
d:=A mod 10;
if (b<>c)and(b<>d)and(c<>d) then Write(A,' ')
End;
End.
A,b,c,d:integer;
Begin
For A:= 100 to 999 do
Begin
b:=A div 100;
c:=(A div 10) mod 10;
d:=A mod 10;
if (b<>c)and(b<>d)and(c<>d) then Write(A,' ')
End;
End.
Новые вопросы