1、小玲读课外书，第一天读了12页，以后每天要比前一天多读6页，最后一天读了48页，问小玲共读了多少天？
var
i,n:byte;
begin
i:=1;
n:=12;
repeat
i:=i+1;
n:=n+6;
until n=48;
write(n);
end.

2、小猴吃桃。有一天，小猴子摘下了若干桃子，当即吃了一半，觉得不过瘾，又吃了一个。第二天猴子接着吃了一半，觉得不过瘾，又吃了一个。以后第天都是吃一半，觉得不过瘾，又吃一个。到了第十天，只剩下一个桃子了。问小猴子第一天摘下了多少个桃子？
var
i:byte;
n:integer;
begin
n:=1;
for i:= 1 to 9 do
n:=(n+1)*2;
write(n);
end.

1、小玲读课外书，第一天读了12页，以后每天要比前一天多读6页，最后一天读了48页，问小玲共读了多少天？
var
i,n:byte;
begin
i:=1;
n:=12;
repeat
i:=i+1;
n:=n+6;
until n=48;
write(n);
end. var
i,n:byte;
i:=1;
n:=12;
while n<48 do begin
i:i+1;
n:=n+6
end;
write(i);
end.

1、小玲读课外书，第一天读了12页，以后每天要比前一天多读6页，最后一天读了48页，问小玲共读了多少天？
一、
var
i,n:byte;
begin
i:=1;
n:=12;
repeat
i:=i+1;
n:=n+6;
until n=48;
write(n);
end.
二、
var
i,n:byte;
i:=1;
n:=12;
while n<48 do begin
i:i+1;
n:=n+6
end;
write(i);
end.

正确

又正确

正确

var
a,i:integer;
begin
a:=12;
i:=1;
repeat
i:=i+1;
a:=a+6;
until a>=48;
writeln(i);
end.

var
z:integer;
t:byte;
begin
z:=1;
for t:=2 to 10 do begin
z:=z+(z+1)*2;
end;
writeln(z);
end.

var
i,a:integer;
s:array[1..10] of byte;
begin
a:=1;
for i:=1 to 10 do s[i]:=1;
for i:=2 to 1000 do begin
a:=(a + i) mod 10;
if a = 0 then a:=10;
s[a]:=0;
end;
for i:=1 to 10 do if s[i]=1 then writeln(i);
readln
end.


按顺序发的，。编号忘了。。。第三题语法应该没错，但是RUN出来四个答案。。。2、4、7、9
为甚啊

刘钟泠：
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.

var
i:byte;
a:integer;
begin
a:=1;
for i:= 1 to 9 do
a:=(a+1)*2;
writeln(a);
end.

正确

错误，麻烦运行一遍，你的结果是负的。。。