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

Question

Информатика

Ноябрина

19 августа, 13:46

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

+1

Ответы (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.