Задание:
СРОЧНО! Все 5-ти буквенные слова составленные из букв В; И; Н; Т; записанны в алфавитном порядке и пронумерованны, вот начало списка:
Решение:
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.
Знаете другой ответ?