для трёхзначных чисел до N (N вводится с клавиатуры) вывести на ...

Question

для трёхзначных чисел до N (N вводится с клавиатуры) вывести на ...

Мария

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

Есть ответ

17.12.2022

450

Ответ

Answer 1 · 17.12.2022

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 (ab) and (ac) and (bc) then write(i,' ');

end;

end.

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

для трёхзначных чисел до N (N вводится с клавиатуры) вывести на ...

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

Ответ

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 (ab) and (ac) and (bc) then write(i,' '); end; end. проверь(для паскаля)

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 (ab) and (ac) and (bc) then write(i,' ');

end;

end.

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