Даны числа : а,b. Определить, является ли одно из них делителем другого: а делится на b или b делится на а без остатка
Answers & Comments
elenaklon
Var a,b : integer; begin readln(a,b); if (a mod b) = 0 then writeln('Делитель ', b); if (b mod a) = 0 then writeln('Делитель ', a); readln; end.
Answers & Comments
begin
readln(a,b);
if (a mod b) = 0 then writeln('Делитель ', b);
if (b mod a) = 0 then writeln('Делитель ', a);
readln;
end.