Question

Ввести с клавиатуры двузначное число определить делится ли оно на сумму своих цифр pascalabc 30

Answer 1

Программа проверяет правильность вводимых данных, а так же определяет наявность цифры 0 в числе, ведь на 0 делить нельзя

var n,a,b:byte;
begin
read(n);
if (n>=10)and(n<=99) then
begin
a:=n div 10;
b:=n mod 10;
if b<>0 then
begin
if (n mod a=0)and(n mod b=0) then writeln('Da, delitsya')
else writeln('Net, ne delitsya')
end
else writeln('Poslednyaya cyfra = 0, na 0 delit nelzya!');
end
else
writeln('Vvedite 2-zna4ne 4islo!').
end.

Answer 2

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