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

Question

Информатика

Олимпиодора

22 июня, 10:20

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

+5

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