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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Ответ:

var y:integer;

begin

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

 readln(y);

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

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

end.

Объяснение: