Question

Să se compună un program in pascal care va calcula produsul a două numere naturale prin adunări repetate.

Vă rog urgent

Dau coroana 1 om

Answer 1

program produsPrinAdunariRepetate;

var a,b,p, i: integer;

begin

 write('a= '); read(a);

 write('b= '); read(b);

 p:=0;

 for i:=1 to b do

    p:=p+a;

 

 writeln(a,'*',b,'= ', p);

end.