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