Question

For i : = 0 to 99 do num[i+1]: =i+1; k: =0; i: =1; while k< 7 do begin if easy(num[i]) = true then k: =k+1; i: =i+2 end; write(num[i-2]); в программе использованы две целочисленные переменные i и k, целочисленный массив num из ста элементов, с индексами от 1 до 100. также определена функция easy() логического типа данных, которая возвращает истинное значение в случае, если переданный в неё целочисленный аргумент является простым числом, и ложное значение - в противном случае. какое число будет выведено в результате выполнения этой программы?

Answer 1

Если дальше завершить программу, то получим это:
program HelloWorld;
    function ez(a: longint): boolean;        var c: integer;        begin            ez := a >= 2;            for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then ez := false        end;        var i, k: integer;        num: array [1 .. 100] of integer;
begin    for i := 0 to 99 do num[i+1] := i + 1;        k := 0;    i := 1;        while k < 7 do begin        if ez(num[i]) = true            then k := k + 1;        i := i + 2;    end;        write(num[i-2]);    end.
ответ 19