СРОЧНО!!! Все 5-ти буквенные слова составленные из букв В;И;Н;Т; записанны в алфавитном порядке и пронумерованны, вот начало списка: 1.ВВВВВ 2.ВВВВИ 3.ВВВВН 4.ВВВВТ 5.ВВВИВ Запишате слово,которое состоит под номером 1020 !
СРОЧНО!!! Все 5-ти буквенные слова составленные из букв В;И;Н;Т; записанны в алфавитном порядке и пронумерованны, вот начало списка: 1.ВВВВВ 2.ВВВВИ 3.ВВВВН 4.ВВВВТ 5.ВВВИВ Запишате слово,которое состоит под номером 1020 !
Гость
Ответ(ы) на вопрос:
Гость1020. ТТТНТ вот прога выводящая все слова до 1020 const
n = 4;
var
a:array[1..n] of char;
i,j,k,l,z, count:integer;
begin
a[1] := 'В';
a[2] := 'И';
a[3] := 'Н';
a[4] := 'Т';
count := 1;
for i :=1 to n do
for j := 1 to n do
for k := 1 to n do
for l := 1 to n do
for z := 1 to n do
begin
writeln(count, '. ', a[i], a[j], a[k], a[l], a[z]);
if (count =1020) then
Exit;
inc(count);
end;
end.
Не нашли ответ?
Похожие вопросы