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

Question

Степанка

14 июля, 03:57

+3

Ответы (1)

Знаете ответ на вопрос?

Софон · Answer 1

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.