Помогите разобраться! Я не понимаю, что здесь не так... var i, k, num: real; begin for:...

Question

Помогите разобраться! Я не понимаю, что здесь не так...
var i, k, num: real;
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.

Comments

+, что это вообще, массив? И что должна делать программа?

---

Что такое easy&

---

Угу

---

Мне понравилось if easy(num[i])=true :D

Answer 1

var
 i, k: real;
 num:array[1..100] of integer;
begin
for: i := 1 to 99 do
 num[i] := i;
k := 0;
i := 1;
while k < 7 do
 begin 
   if easy(num[i])
    then
      k := k + 1;
       i := i + 2;
end;
write(num[i-2]);
end.

Немного разобрал бред, но программа бессмысленная и проверка(if easy(num[i])) мне не понятна, что это за процедура easy?
Что за массив без его описания, автор разберись с кодом, поучи синтаксис Паскаля.

Comments

Скажи что должна делать программа, напишу код.