function chekend1(a: byte): boolean; var cnt: byte; i: integer; begin i := 0; cnt := 0; for i := 1 to 25 do begin if (a * a * sqr(i)) mod 26 = 1 then inc(cnt);
if cnt = 0 then chekend1 := false else chekend1 := true; end; end;
function chekrus1(a: byte): boolean; var cnt: byte; i: integer; begin i := 0; cnt := 0; for i := 1 to 32 do begin if (a * a * sqr(i)) mod 33 = 1 then inc(cnt);
if cnt = 0 then chekrus1 := false else chekrus1 := true; end; end;
begin for i := 0 to 26 do begin writeln(chekend1(i), ' ', i); end; writeln(); writeln(); for i := 0 to 33 do begin writeln(chekrus1(i), ' ', i); end; end.
Прошу помочь с решением поиска обратного ключа для Русского и Английского алфавита..
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы можете добавлять вложения