大家帮忙，我想写个小程序。

Question

大家好啊，我是刚学DELPHI的，现在想练习写个小程序。程序要求在号码1到1000中除掉带数字4和6的号码，求剩余号码数量。大家能给点提示或提供点源码吗？谢谢

Answer 1

for i:=1 to 1000 do
begin
  s:=inttostr(i);
  for j:=low(s) to high(s) do
  begin
    if s[j]=4 or s[j]=6 then
        flag:=1;break;
  end;
  if flag<>1 then
    sum:=sum+1;
end;

Answer 2

多看看PASCAL语法,多看别人的程序.

Answer 3

var
  i,j,sum:integer;
  str:string;
  flag:Boolean;
begin
  for i:=1 to 1000 do
  begin
    str:=IntToStr(i);
    for j:=1 to length(s) do
    begin
      if (str[j]='4') or (str[j]='6') then
         flag:=false;
      Break;
    end;
    if flag<>false then sum:=sum+1;
  end;
end;

Answer 4

var
  i,sum:integer;
  str:string;
  flag:Boolean;
begin
  sum:=0;
  for i:=1 to 1000 do
  begin
    str:=IntToStr(i);
    flag:=true;
    if (pos('4',str)>0) or (pos('6',str)>0) then
         flag:=false;
    if flag then sum:=sum+1;
  end;
end;