Question

Se citesct 2 numere naturale a si b.
a) Sa se calculeze produsul dintre a si b ( a*b ) prin adunari repetitive. a*b= a+a+a+....
b) Sa se calculeze a la puterea b prin inmultiri repetate a la b= a*a*a... de b ori.

Recursiv va rog. 

Answer 1

program p1;
var a,b:real;f
unction prod(a,b:real):real;
 begin   
 if b=0 then prod:=0     
else prod:=a+prod(a,b-1); 
end;
Begin
write('Dati a si b:');
readln(a,b);
writeln('Produsul lui a si b este:',prod(a,b));
readln;
End.
si al-2-lea program
program p1;
var a,b:real;
function put(a,b:real):real;
  begin   
  if b=0 then put:=1     
else put:=a*put(a,b-1); 
 end;
Begin
write('Dati a si b:');
readln(a,b);
writeln('a la puterea b este:',put(a,b));
readln;
End.