
Климент
5 год назад
составить программу для вывода на экран всех чисел делящих на 723 и меньших миллион
ОТВЕТЫ

Веселин
Oct 24, 2020
Var A:integer;
Begin
A:=0;
While A<1000000 do
Begin
WriteLn(A);
A:=A+723;
End;
End.
Begin
A:=0;
While A<1000000 do
Begin
WriteLn(A);
A:=A+723;
End;
End.
740
Смежные вопросы: