讓小學生來幫妳
第壹：program ex(input,output);
var
a,b:real;
begin
a:=11;
b:=0;
repeat
b:=b+1;
a:=a*1.15;
until a>22;
writeln(b);
end.
第二：program ex(input,output);
var
i,a:integer;
begin
a:=1;
for i:=9 downto 1 do a:=(a+1)*2;
writeln(a);
end.
第三：(1)
program ex;
var
e:real;
i:integer;
function jc(n:integer):integer;
var
i:integer;
begin
jc:=1;
for i:=1 to n do
jc:=jc*i;
end;
{main}
begin
e:=0;
for i:=1 to 50 do
e:=e+1/(jx(i))
writeln(e);
end.
(2):
program ex;
var
e,t:real;
i:integer;
function jc(n:integer):integer;
var
i:integer;
begin
jc:=1;
for i:=1 to n do
jc:=jc*i;
end;
{main}
begin
e:=0;
i:=0;
repeat
inc(i);
t:=1/jx(i);
e:=e+(t)
until t<10E-5
writeln(e);
end.