Если одно из чисел делится на другое нацело, выведите 1 - Pascal ABC

Формулировка задачи:

Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число. При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.

Решил её так:

var n,m,c: longint;
begin
 read(n,m);
 c:=((n div m) +(n mod m)*(m mod n)+(m div n))div((n div m)+ (m div n));
 writeln(c);
end.

Но почему-то неверно.

Решение задачи: «Если одно из чисел делится на другое нацело, выведите 1»

textual
                            Листинг программы 
                        

                            Program ABC2944;
var n, m, g: integer;
begin
readln(n, m);
g := (n mod m)*(m mod n) + 1;
writeln (g);
end.
                        

Оцени полезность:

9 голосов , оценка 3.889 из 5

Похожие ответы