Question

Нужна помощь!!! Роман написал программу на языке Pascal, фрагмент которой приведен ниже. 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

19
--------------------
//Pascal
function easy(a:longint):boolean;
var
  i:integer;
begin
  easy:=true;
if a<2 then
  easy:=false else
for i:=1 to a div 2 do
  if ((a mod i)=0) and (i<>1) then
    easy:=false;
end;

var
i, k: integer;
num: array [0..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 easy(num[i])=true then
  k:=k+1;
i:=i+2;
end;
  write(num[i-2]);
end.