• Даны натуральные числа m, n. Получить все кратные им числа, меньшие m*n. сделать на паскале )

Ответы 1

  • var m,n,l:integer;

    Begin

    writeln('m,n');

    readln(m,n);

    if l mod n=0 and l mod m=0 and l<=(m*n) then 

    write (l);

    readln(l);

    end.

     

     

    вроде так

    • Автор:

      chivas
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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