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

Question

Информатика

Витаня

17 января, 20:43

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

+2

Ответы (1)

Знаешь ответ?

Христина · Answer 1

Var A, B: integer;

begin

writeln ("Введите А");

readln (A);

writeln ("Введите B");

readln (B);

if (A mod B = 0) then

writeln ("А кратно В");

else

writeln ("А некратно В");

end.