Program Z;
var a,b:integer;
BEGIN
write('Задайте два целых числа: ');
read(a,b);
if a>b then if a mod b=0 then write('YES') else write('NO')
else if b mod a=0 then write('YES') else write('NO');
END.
Объяснение: Программа написана на Паскаль ABC
Program Z;
var a,b:integer;
BEGIN
write('Задайте два целых числа: ');
read(a,b);
if a>b then if a mod b=0 then write('YES') else write('NO')
else if b mod a=0 then write('YES') else write('NO');
END.
Объяснение: Программа написана на Паскаль ABC