Question

Нужно написать программу в паскаль, чтобы она выдавало слово(код) из 12 символов.
Алфавит: ztmyvfpewjx23456789
Маска для слова: N1N1N1N1N1NN
Маска кода где:
N - возможны только буквы
1 - возможны только цифры

Answer 1

// PascalABC.NET

begin

 var cs := 'ztmyvfpewjx';

 var ds := '23456789';

 var s := '';

 for var i := 1 to 12 do

   if i in [1, 3, 5, 7, 9, 11, 12] then s += cs[Random(1, cs.Length)]

   else s += ds[Random(1, ds.Length)];

 s.Print

end.