李盈安
1.var
day:byte;
f:array[1..10] of byte;
begin
day:=1;
f[day]:=12;
repeat
day:=day+1;
f[day]:=f[day-1]+6;
until f[day]>=48;
writeln(day);
readln
end.

彭润
1、day:byte;
f:array[1..10] of byte;
begin
day:=1;
f[day]:=12;
repeat
day:=day+1;
f[day]:=f[day-1]+6;
until f[day]>=48;
writeln(day);
readln
end.

李盈安
2.var
a,i:integer;
begin
a:=1;
for i:=1 to 10 do begin
a:=a*2+1;
end;
writeln(a);
readln
end.

钱锟
1，var
t:byte;
f:array[1..10] of byte;
begin
t:=1;
f[t]:=12;
repeat
t:=(t)+1;
f[t]:=f[t-1]+6;
until f[t]>=48;
writeln(t);
readln
end.

杨淑杰
第一题
var
day:byte;
f:array[1...10] of integer;
begin
day:=1;
f[day]:=12;
repeat
day:=day+1;
f[day]:=f[day-1]+6;
until f[day]>=48;
writeln(day);
readln
end.

刘璐璐：
【1.小玲读书】：
var
s,l:byte;
begin
s:=1;
l:=12;
while l<48 do begin
l:=l+6;
s:=s+1;
end;
writeln(s);
end.
【2.小猴吃桃】：
var
a:array[1..10] of integer;
n:integer;
begin
n:=10;
a[10]:=1;
while n>1 do begin
n:=n-1;
a[n]:=(a[n+1]+1)*2;
end;
writeln(a[1]);
end.

正确

正确

正确

正确

第一题很有想法，不错不错，第二题正确

于亚杰
1.
var day:byte;
f:array[1..10] of byte;
begin
day:=1;
f[1]:=12;
repeat
day:=day+1;
f[day]:=f[day-1]+6;
until f[day]=48;
writeln(day);
end.
2.
var n,i:integer;
begin
n:=1;
for i:=1 to 10 do begin
n:=n+1;
n:=n*2;
end;
writeln(n);
end.
3.
var i,n,k:integer;
a:array[1..10] of byte;
begin
n:=1;
k:=10;
for i:=1 to 1000 do begin
k:=k+n;
if (k>10)and(k mod 10<>0) then k:=k mod 10
else if k mod 10 =0 then k:=10;
a[k]:=1;
n:=n+1;
end;
for i:=1 to 10 do if a[i]<>1 then writeln(i);
end.

错误，好好想想

第二题有点小问题，你改进一下