Заданы 2 целых числа.Напечатать,делится ли большее на меньшее нацело
Заданы 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.
Не нашли ответ?
Похожие вопросы