Составить программу для вывода на экран всех чисел делящих на 723 и меньших миллион
Составить программу для вывода на экран всех чисел делящих на 723 и меньших миллион
Гость
Ответ(ы) на вопрос:
ГостьVar A:integer;
Begin
A:=0;
While A<1000000 do
Begin
WriteLn(A);
A:=A+723;
End;
End.
Не нашли ответ?
Похожие вопросы