Question

Пожалуйста, помогите с 1 !!! даю 25 баллов!​

Answer 1

Объяснение:

Program zero;

Var i:Integer;

Begin

For i:=1000 to 999999 do

Begin

If (i mod 5 = 0) and (i mod 7 = 0) then

Whiteln('Возможный индекс: ', i);

End;

Readln

End.

Ps. Эта программа для Паскаля