Question

Дано двузначное число Y. Кратно ли число Y 13?(pascal abc net, операторы ветвления)

Answer 1

Ответ:

var y:integer;

begin

 writeln('Введите число');

 readln(y);

 if y mod 13 = 0 then writeln('Число кратно')

 else writeln('Число не кратно');

end.

Объяснение:

Answer 2

var

y:integer;

begin

readln(y);

if y mod 13 = 0

then Writeln('Да')

else Writeln('Нет');

end.

Answer 3

Да, чтобы определить, кратно ли двузначное число Y числу 13, можно воспользоваться операторами ветвления. Вот пример кода на Pascal ABC.NET:

pascalCopy code
program CheckDivisibility;

var
  Y: integer;

begin
  write('Введите двузначное число Y: ');
  readln(Y);

  if Y mod 13 = 0 then
    writeln(Y, ' кратно 13.')
  else
    writeln(Y, ' не кратно 13.');

  readln;
end.

В этом коде мы считываем значение переменной Y, затем используем оператор ветвления if для проверки, делится ли Y на 13 без остатка (Y mod 13 = 0). Если условие выполняется, то выводится сообщение, что число кратно 13. В противном случае выводится сообщение, что число не кратно 13.