Разобраться! я не понимаю, что здесь не 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.

232

428

Посмотреть ответы 2

Ответы на вопрос:

laaaaal228

Информатика

4,4(41 оценок)

Var i, k: real; num: array[1..100] of integer; beginfor: 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? что за массив без его описания, автор разберись с кодом, поучи синтаксис паскаля.