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

Question

Информатика

Эдуардик

12 августа, 21:42

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

+1

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