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

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

Задать свой вопрос
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.
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.
Всё так?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт