Помогите с инфой. PascalABC

На вход программе подаются два целых числа m и n, по модулю не превосходящие 10^6. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - любое другое число.

Условный оператор использовать нельзя!

Входные данные

целые числа m, n

Выходные данные

1 или другое целое число.

Необходимо рассмотреть вариант с делением на 0 (вывести любое кроме 1)

Question

Информатика

Звезда

7 сентября, 12:41

Помогите с инфой. PascalABC

На вход программе подаются два целых числа m и n, по модулю не превосходящие 10^6. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - любое другое число.

Условный оператор использовать нельзя!

Входные данные

целые числа m, n

Выходные данные

1 или другое целое число.

Необходимо рассмотреть вариант с делением на 0 (вывести любое кроме 1)

+1

Ответы (1)

Знаете ответ?

Полюня · Answer 1

Var m, n, s, x:integer; beginreadln (m, n) ; x:=m; while (m>0) and (n0) 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 (m0) and (x>=m) dobeginn:=n-m; s:=0end; while n<1 dobeginn:=n+1; s:=s+1end; writeln (s) end.