Question

Дано число. Делится ли это число на 5 без остатка? Надо на языке Паскаля

Answer 1

Ответ:

program z1;

var a:integer;

begin

write ('a = ');

readln (a);

if a mod 5 = 0 then write ('Число ',a,' делится на 5 без остатка')

else write ('Число ',a,' не делится на 5 без остатка')

end.

Объяснение:

a mod 5 = 0

mod - остаток от целочисленного деления

Если число а при делении на 5 даёт в остатке 0, то оно делится на 5 без остатка, иначе число не делится на 5 без остатка

Answer 2

Конечно, вот как можно проверить, делится ли число на 5 без остатка на языке Паскаль:

pascalCopy code
program CheckDivisibility;
var
  number: integer;

begin
  writeln('Введите число: ');
  readln(number);

  if number mod 5 = 0 then
    writeln('Число делится на 5 без остатка.')
  else
    writeln('Число не делится на 5 без остатка.');
end.

В этом коде мы сначала вводим число с помощью readln, а затем используем оператор mod для проверки остатка от деления на 5. Если остаток равен нулю, то число делится на 5 без остатка, и выводится соответствующее сообщение. В противном случае выводится сообщение о том, что число не делится на 5 без остатка.