Помогите разобраться! Я не понимаю, что здесь не так... 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.
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.
More Questions From This User See All