Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Последовательности без повторений

Автор: Varant 3.6.2010, 00:28

Здравствуйте. Помогите решить задачку очень нужно..

Вывести на экран все числа из 3 цифр, причем внутри одного числа не должно быть двух одинаковых цифр. Например, к таким числам относятся: 012, 271, 490.

Автор: volvo877 3.6.2010, 01:21

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Letov 3.6.2010, 12:01

Код


program povtor;
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(f, i, j, k);
    readln;
end.

Автор: Varant 3.6.2010, 20:10

Спасибо, Letov. smile

программа гениальная!)