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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.