Виталий11 В Виталий11 Регистрация 10 Июл 2013 Сообщения 88 Репутация 0 Спасибо 0 Монет 0 17 Ноя 2016 #1 Буду очень благодарен а то вообще ничего не понятно) Function Prost (x: longint): boolean; d: longint; If x mod 2=0 then Prost:=(x=2) else begin d:=3; while (int64 (d) * d lt;=x) and (x mod d lt; gt; 0) do:=d + 2; Prost:=(int64 (d) * d gt; x) and (x lt; gt; 1); end; end;
Буду очень благодарен а то вообще ничего не понятно) Function Prost (x: longint): boolean; d: longint; If x mod 2=0 then Prost:=(x=2) else begin d:=3; while (int64 (d) * d lt;=x) and (x mod d lt; gt; 0) do:=d + 2; Prost:=(int64 (d) * d gt; x) and (x lt; gt; 1); end; end;
taftKarfawl T taftKarfawl Регистрация 16 Ноя 2012 Сообщения 90 Репутация 0 Спасибо 0 Монет 0 17 Ноя 2016 #2 Тут ошибка в функции Как минимум бегина не хватает Позитивный голос 0