Question

Проверьте, делится ли выбранное число на 5, на 11 или 13нужно сделать в Pascal ABC

Answer 1

Var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 5=0) then writeln('Число ',a,' делится на число 5')
else writeln('Число ',a,' не делится на число 5');
if (a mod 11=0) then writeln('Число ',a,' делится на число 11')
else writeln('Число ',a,' не делится на число 11');
if (a mod 13=0) then writeln('Число ',a,' делится на число 13')
else writeln('Число ',a,' не делится на число 13');
end.

Answer 2

В Pascal ABC код для проверки деления выбранного числа на 5, 11 и 13 может выглядеть следующим образом:

program CheckDivisibility;

var
  chosenNumber: Integer;

begin
  // Введите выбранное число
  write('Введите число: ');
  readln(chosenNumber);

// Проверка деления на 5
  if chosenNumber mod 5 = 0 then
    writeln(chosenNumber, ' делится на 5')
  else
    writeln(chosenNumber, ' не делится на 5');

// Проверка деления на 11
  if chosenNumber mod 11 = 0 then
    writeln(chosenNumber, ' делится на 11')
  else
    writeln(chosenNumber, ' не делится на 11');

// Проверка деления на 13
  if chosenNumber mod 13 = 0 then
    writeln(chosenNumber, ' делится на 13')
  else
    writeln(chosenNumber, ' не делится на 13');
end.

Этот код сначала запрашивает у пользователя ввод числа, затем проверяет его деление на 5, 11 и 13 с использованием оператора `mod` (возвращает остаток от деления). Если остаток равен нулю, то число делится на соответствующее число (5, 11 или 13).