Question

Помогите по информатике,нужно на паскале! Дано 2 целых числа а и b.Написать слово "делится",если a/b без остатка,в противном случае написать "не делится".

Answer 1

Var
a, b: integer;
begin
readln(a, b);
If a mod b <> 0 then
writeln('Не делится')
else 
writeln('Делится');
end.

Answer 2

Для решения данной задачи на языке Pascal можно использовать следующий код:

var
  a, b: integer;
begin
  readln(a, b);
  if a mod b = 0 then
    writeln('делится')
  else
    writeln('не делится');
end.

В этом коде мы считываем два целых числа `a` и `b` с помощью `readln`. Затем мы проверяем, делится ли `a` на `b` без остатка с помощью оператора `mod`. Если остаток от деления равен нулю, то выводим слово "делится", иначе выводим слово "не делится" с помощью оператора `writeln`.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.