Слово окно закодировано числовой последовательностью 011011011.известно, что коды согласных и гласных букв имеют разную длину.какое слово по этому коду соответствует последовательности 01110011?
Var a, real_coin: array[1..6] of integer; forged_coin, i: integer;
begin for i := 1 to 6 do a[i] := 10; forged_coin := random(6); a[forged_coin] := random(4) + 8; writeln(forged_coin);
for i := 1 to 6 do write(a[i], ' '); writeln;
forged_coin := 0; if a[1] + a[2] = a[3] + a[4] then begin real_coin[1] := a[1]; real_coin[2] := a[2]; if real_coin[1] = a[5] then forged_coin := 6 else forged_coin := 5; end else begin real_coin[1] := a[5]; real_coin[2] := a[6]; if a[1] + a[2] = real_coin[1] + real_coin[2] then begin real_coin[3] := a[1]; real_coin[4] := a[2]; if real_coin[1] = a[3] then forged_coin := 4 else forged_coin := 3; end
else begin real_coin[3] := a[3]; real_coin[4] := a[4]; if real_coin[1] = a[1] then forged_coin := 2 else forged_coin := 1; end; end;
writeln(forged_coin); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Слово окно закодировано числовой последовательностью 011011011.известно, что коды согласных и гласных букв имеют разную длину.какое слово по этому коду соответствует последовательности 01110011?