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

гегпнгеггне гегпнгеггне    2   19.05.2019 16:20    14

Ответы
nkochneva1 nkochneva1  30.09.2020 23:28

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.

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика