递归N*M是把N+N做M次是吧

李盈安
正常的解法：var
m,n:integer;
begin
readln(m,n);
writeln(m*n);
readln
end.

(1)
var ans,i,j,m,n:longint;
procedure plus(m:longint);
begin
if m>0 then ans:=ans+n
else exit;
plus(m-1);
end;
begin
while not eof do begin
readln(n,m);
ans:=0;
plus(m);
writeln(ans);
end;
end.
(2)
var ans,i,j,m,n:longint;
procedure multiply(m:longint);
begin
if m>0 then ans:=ans*n
else exit;
multiply(m-1);
end;
begin
while not eof do begin
readln(n,m);
ans:=1;
multiply(m);
writeln(ans);
end;
end.
(3)
var n,s,ans:qword;
i:longint;
begin
ans:=1;
for i:=1 to 64 do ans:=ans*2;
dec(ans);
writeln(ans);
s:=60*60*24*365;
writeln(ans/s:0:2);
readln;
end.


忘记告诉你们了，作业是我批的，抄我的程序，嘿嘿，你懂的

参考一下我的写法

var ans,i,j,m,n:longint;
procedure plus(m:longint);
begin
if m>0 then ans:=ans+n
else exit;
plus(m-1);
end;
begin
while not eof do begin
readln(n,m);
ans:=0;
plus(m);
writeln(ans);
end;
end.

别复制我程序，理解了自己写一遍，我相信，不会和我一模一样的，你说呢

诶，对

初二六班,YXY

var n,s,ans:qword;
i:longint;
begin
ans:=1;
for i:=1 to 64 do ans:=ans*2;
dec(ans);
writeln(ans);
s:=60*60*24*365;
writeln(ans/s:0:2);
readln;
end.
jkl你的程序超了

快说！

一定要说！

YXY,真的没错。

没吧，我试过了，