• Вопрос по информатике:

    Помогите с инфой. PascalABC
    На вход программе подаются два целых числа m и n, по модулю не превосходящие 10^6. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - любое другое число.
    Условный оператор использовать нельзя!
    Входные данные
    целые числа m, n
    Выходные данные
    1 или другое целое число.
    Необходимо рассмотреть вариант с делением на 0(вывести любое кроме 1)

    • Автор:

      rosaosborne

  • Ответ:

    var m,n,s,x:integer;beginreadln(m,n);x:=m;while (m>0)and(n<>0)and(x>=n) dom:=m-n;s:=0;while m<1 dobegins:=s+1;m:=m+1end;m:=x;x:=n;while (n>0)and(m<>0)and(x>=m) dobeginn:=n-m; s:=0end;while n<1 dobeginn:=n+1;s:=s+1end;writeln(s)end.

    • Отвечал:

      leonardcghg
    • 0

    Ответ:

    var m,n,s,x:integer;beginreadln(m,n);x:=m;while (m>0)and(n<>0)and(x>=n) dom:=m-n;s:=0;while m<1 dobegins:=s+1;m:=m+1end;m:=x;x:=n;while (n>0)and(m<>0)and(x>=m) dobeginn:=n-m; s:=0end;while n<1 dobeginn:=n+1;s:=s+1end;writeln(s)end.

    • Отвечал:

      karliemcconnell
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска