Впроизвольном массиве а(15) на интервале (-50; 50), найти наибольший элемент.

Question

Информатика: Впроизвольном массиве а(15) на интервале (-50; 50), найти наибольший элемент.

нурик200120 · Accepted Answer

Var
    n, i, prev: integer;

function IsSimpleNumber(n: integer): boolean;
var
    i: integer;
begin
    IsSimpleNumber := true;

    for i := 2 to round(sqrt(n) + 1) do
        if n mod i = 0 then begin
            IsSimpleNumber := false;
            exit;
        end;
end;

begin
    read(n);
    prev := 0;

    for i := n to 2 * n do
        if IsSimpleNumber(i) then
            if prev = 0 then
                prev := i
            else if i - prev = 2 then begin
                writeln(i, ', ', prev, ' - близнецы');
                halt;
            end
            else prev := i;

    writeln('Близнецов нет');
end.

MOGZ ответил