Alt+ f10 bkb ghfdjq ryjgs vsib xnj,s drk.xbnm
Функция pos(sw,ws) возвращает индекс вхождения подстроки sw в строку ws,
В 32-символьном алфавите на 1 символ необходимо log(2)32=5 бит.
На 20 символов: 20*5=100 бит
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
Во-первых, какой язык программирования? Если Паскаль, то там все очень просто: ты пишешь название переменной, потом знак присвоения со значением.