Даны числа: а, b. Определить, является ли одно из них делителем другого: а делится на b или b делится на а без остатка

Question

Информатика

Витушка

6 декабря, 13:58

Даны числа: а, b. Определить, является ли одно из них делителем другого: а делится на b или b делится на а без остатка

+2

Ответы (2)

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

Антиох · Answer 1

Program zadacha;

var

a, b, c:integer;

begin

readln (a, b) ;

if c = a mod b then

begin

writeln ('число b делится без остатка на число a') ;

end

else

if c = b mod a then

writeln ('число a делится без остатка на число b') ;

end.

Всё так?

Эдуардик · Answer 2

Var a, b : integer;

begin

readln (a, b) ;

if (a mod b) = 0 then writeln ('Делитель ', b) ;

if (b mod a) = 0 then writeln ('Делитель ', a) ;

readln;

end.