Задача Задача №492568
А
А
Напиши код на паскале, для этой задачи: Вася составляет пятибуквенные слова из букв слова УДАЧА. Каждая буква может не входить или входить в слово многократно. Первая буква может быть только гласной. Все различные подходящие слова записали в алфавитном порядке и пронумеровали, начиная с 1. Под каким номером стоит слово УДАЧА?
program WordsFromPhrase;
var
word: array[1..5] of char;
n, i: integer;
begin
word := 'УДАЧА';
n := 0;
repeat
for i := 1 to 5 do
write(word[i]);
writeln;
n := n + 1;
until not next_permutation(word);
writeln('Слово "УДАЧА" стоит под номером: ', n);
end.
