Question

Помогите пожалуйста решить в паскаль

Answer 1

 function sum (a : integer) : integer; 
 var   
s : integer; 
begin   
While a > 0 do   
 begin     
s := s + a mod 10;     
a := a div 10;   
end;   
Result := s; 
end;  

var   
a,b : integer;   
c,d : integer;  
begin   
readln (a,b);   
c := a div b; 
d := a - (b * c); 
writeln (sum(d)); 
end.

 function p (a : integer) : integer; 
var   
p : integer; 
begin   
p := 1;   
While a > 0 do   
begin     
p := p * a mod 10;     
a := a div 10;   
end;   
Result := p; 
end;     
var   
a : integer;  
begin   
readln (a);   
writeln (p(a)); 
end.