Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
Ответы
Ответ дал:
0
program qwerty;
var i: integer;
begin
for i:=100 to 1000 do
if ((i div 100)<>((i div 10) mod 10)) and ((i div 100)<>(i mod 10)) and ((i mod 10)<>((i div 10) mod 10))
then writeln(i);
end.
var i: integer;
begin
for i:=100 to 1000 do
if ((i div 100)<>((i div 10) mod 10)) and ((i div 100)<>(i mod 10)) and ((i mod 10)<>((i div 10) mod 10))
then writeln(i);
end.
Ответ дал:
0
var
i, j, k: integer;
begin
for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
if (i <> j) and (i <> k) and (j <> k) then
writeln(100 * i + 10 * j + k);
end.
i, j, k: integer;
begin
for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
if (i <> j) and (i <> k) and (j <> k) then
writeln(100 * i + 10 * j + k);
end.
Вас заинтересует
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад