Question

решить в паскале. определить делится ли модуль разности введенных чисел 5

Answer 1

//Pascal
var
  a, b: integer;

begin
  writeln('Введите 2 числа');
  readln(a, b);
  if abs(a - b) mod 5 = 0 then writeln('Делится нацело')
  else
    writeln('Не делятся');
end.