Faal
6 год назад
Среди трехзначных натуральных чисел вывести в строчку те,у которых все цифры различны
ОТВЕТЫ
Minko
Oct 24, 2020
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.
151
Смежные вопросы:
