Question

ввести с клавиатуры двузначное число определить делится ли оно на сумму своих
цифр PascalABC
Даю 30 баллов!!!!

Answer 1

var n:integer;
begin
 write('Введите двузначное число='); readln(n);
if n mod ((n mod 10)+(n div 10))=0 then Writeln('да, делится')
else Writeln('нет, не делится');
end.