Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дано 2 числа. Проверь если большее число делится на меньшее точно.
Пример: Входные данные: 10 250; Выходные данные: 250 делится точно на 10
На Паскаль нужно решение, пож.

Ответ оставил Гость

Program aaa;
var a,b: integer;
begin
writeln(Введите два числа:);
readln(a,b);
if a>b then
 begin
if (a mod b) = 0 then
writeln(число ,a, точно делится на число ,b)
else
 writeln(число ,a, не делится на число ,b, без остатка);
end;
if b>a then 
begin
if (b mod a) = 0 then
writeln(число ,b, точно делится на число ,a)
else
 writeln(число ,b, не делится на число ,a, без остатка );
end;
end.