• Uses crt;
    var a:integer;
    begin
    for a:=10000 to 99999 do
    if (a mod 133=125) and (a mod 134=111) then writeln(a);
    end.
    из этой программы сделать программу с циклом repeat

Ответы 2

  • спасибо большое
    • Автор:

      andy10
    • 6 лет назад
    • 0
  • Uses crt;var a:integer;begina:=10000;repeatif (a mod 133=125) and (a mod 134=111) then writeln(a);a:=a+1;until a>99999;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years