Даны два натуральных числа n и m. Если одно из них делится на ...

Question

Даны два натуральных числа n и m. Если одно из них делится на ...

Дмитрий

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

Есть ответ

12.12.2022

194

Ответ

Answer 1 · 12.12.2022

program NandM;

var n,m,r: integer;

c,d: real;

Begin

writeln ('Enter n,m');

readln (n,m);

r:=random(500);

c:=n mod m;

d:=m mod n;

If (c=0)or(d=0) then writeln ('1') else writeln ('r');

readln;

End.

Даны два натуральных числа n и m. Если одно из них делится на ...

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

Ответ

program NandM; var n,m,r: integer; c,d: real; Begin writeln ('Enter n,m'); readln (n,m); r:=random(500); c:=n mod m; d:=m mod n; If (c=0)or(d=0) then writeln ('1') else writeln ('r'); readln; End.

program NandM;

var n,m,r: integer;

c,d: real;

Begin

writeln ('Enter n,m');

readln (n,m);

r:=random(500);

c:=n mod m;

d:=m mod n;

If (c=0)or(d=0) then writeln ('1') else writeln ('r');

readln;

End.