Var n,s,k:integer;
begin
write('n='); readln(n);
write('k='); readln(k);
s:=0;
while n<>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln('sum = ',s);
if s mod k =0
then writeln('Сумма цифр числа кратна ',k)
else writeln('Сумма цифр числа не кратна ',k);
end.
Пример:
n=123
k=2
sum = 6
Сумма цифр числа кратна 2