Даны целые числа A и B. Требуется определить, является ли число А кратным числу B

Question

Даны целые числа A и B. Требуется определить, является ли число А кратным числу B

Экономика

Гость

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

Accepted Answer

var A,B: integer; begin writeln("Введите А"); readln(A); writeln("Введите B"); readln(B); if (A mod B = 0) then writeln("А кратно В"); else writeln("А некратно В"); end.