Помогите!for i := 0 to 99 do num[i+1]:=i+1; k:=0; i:=1; while

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

Задать свой вопрос
1 ответ
Если далее завершить программу, то получим это:
program HelloWorld;
    function ez(a: longint): boolean;        var c: integer;        begin            ez := a gt;= 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 lt; 7 do begin        if ez(num[i]) = true            then k := k + 1;        i := i + 2;    end;        write(num[i-2]);    end.
Ответ 19

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт