Для трёхзначных чисел до n (n вводится с клавиатуры) вывести на экран только те ,у которых все цифры в представлении различны.

орпавераопрпираоарат орпавераопрпираоарат    1   28.03.2019 11:00    3

Ответы
лооол19 лооол19  27.05.2020 00:56

var  i,n,a,b,c    :integer;

begin

read(n);

i:=99;

for i:=100 to n do

begin

a:=i mod 10;

b:=i div 10 mod 10;

c:=i div 100;

if (a<>b) and (a<>c) and (b<>c) then write(i,' ');

end;

end.

 

 

 

 

проверь(для паскаля)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика