Пользователь вводит с клавиатуры два числа a и b. Написать программу, определяющую: 1)....

Question

Пользователь вводит с клавиатуры два числа a и b. Написать программу, определяющую: 1). является ли число a делителем числа b; 2). является ли число b делителем числа a;

Answer 1

var a,b:integer;
begin
readln(a,b);
if a mod b = 0 then writeln('a - делитель b');
if b mod a = 0 then writeln('b - делитель a');
end.