Даны два натуральных числа 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
