pascal语句

来源：百度知道 编辑：UC知道 时间：2024/09/28 17:23:54
求1000以内除7余4的数，及个数
1，2楼的同志错了，“再接再厉”
LennyAscetic同志你试过了？起码我验过！我用的是pascal7.0

program ab;
var
a,b:integer;
begin
b:=0;
for a:=1 to 1000 do
if a mod 7 = 4
then begin
writeln(a);
b:=b+1;
end;
write(b);
end.

Program dzl;
Var i,s:integer;
Begin
s:=0;
For i:=1 to 1000 Do
If i mod 7=4 then
Begin
Inc(s);
Write(i,' ');
End;
Writeln;
Writeln(s);
End.

好办，第一个数必是4，之后一直加7就是
var i,sum:integer;
begin
i:=4;write(i,' ');
sum:=1;
while i<1000 do begin
i:=i+7;write(i,' ');
inc(sum);
end;
writeln;
writeln('sum=',sum);
end.

哪里有错??
4 11 18..这样下去，怎么错了？？

var i,sum:integer;

begin
for i:=1 to 1000 do
if i mod 7=4 then
begin write(i,' ');inc(sum); end;