Заданы 2 целых числа.Напечатать,делится ли большее на меньшее нацело

Var
    a, b, t: integer;

begin
    readln(a, b);
    if b > a then begin
        t := a;
        a := b;
        b := t;
    end;
    writeln(a mod b = 0);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!