Помогите разобраться! Я не понимаю, что тут не так... var i,

Помогите разобраться! Я не разумею, что здесь не так...
var i, k, num: real;
begin
for: i := 0 to 99 do num[i+1] := i+1;
k := 0;
i := 1;
while k lt; 7 do begin
if easy(num[i]) = true
then k := k + 1;
i := i + 2;
end;
write(num[i-2]);
end.

Задать свой вопрос
Дарина Милашова
+, что это вообщем, массив? И что должна делать программка?
Геннадий Егорочкин
Что такое easy
Egor Anihovskij
Угу
Илюша Тананыхин
Мне понравилось if easy(num[i])=true :D
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 lt; 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?
Что за массив без его описания, автор разберись с кодом, поучи синтаксис Паскаля.
Женек Судапев
Скажи что обязана делать программка, напишу код.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт