Question

Нужно составить программу (Pascal) определяющую является ли число А кратным числу В.

Answer 1

var a,b: integer;
begin
readln(a);
readln(b);
if (a mod b)=0 then
writeln('Число кратно')
else writeln('Число не кратно');
end.

Answer 2

Приведенная ниже программа на Pascal проверяет, является ли число A кратным числу B:

pascalCopy code
program CheckMultiple;

var
  A, B: Integer;

begin
  Write('Введите число A: ');
  Readln(A);

  Write('Введите число B: ');
  Readln(B);

  if A mod B = 0 then
    WriteLn(A, ' является кратным числу ', B)
  else
    WriteLn(A, ' не является кратным числу ', B);

  ReadLn;
end.

Пользователю предлагается ввести значение для числа A и числа B. Затем программа проверяет, делится ли число A на число B без остатка, используя оператор mod. Если остаток от деления равен нулю, то число A является кратным числу B, иначе не является.