#include<iostream>
#include<stdio.h>
using namespace std;
int pi;
bool flag[1000010];
int in;
int n;
int a[1000010];
int getprime()
{
for(int i=2;i<1000010;++i)
{
if(!flag[i])
{
in++;
for(int j=i;j<1000010;j+=i)
{
flag[j]=true;
a[j]=in;//记录序号
}
}
}
}
int main(int argc, char *argv[])
{
//freopen("2136.in","r",stdin);
getprime();
while(scanf("%d",&n)!=EOF)
{
printf("%d\n",a[n]);
}
return 0;
}

var
pi:longint;
flag:array [0..1000009] of boolean;
in:longint;
n:longint;
a:array [0..1000009] of longint;
function getprime():longint;
var i,j:longint;
begin
for i:=2 to 1000010 do
begin
if not flag[i] then
begin
inc(in);
for j:=i to 1000010 div i do
begin
flag[j]:=true;
a[j]:=in;//记录序号
end;
end;
end;
end;
begin
//assign(input,'2136.in');reset(input);
getprime();
while not eof do
begin
read(n);
writeln(a[n]);
end;
end.

#include<cstdio>#
includeint main(){ char x[1000]; while(~scanf("%s",&x)){ int s=strlen(x),sum=0,fact1=0,fact2=0,fact3=0; if(s>=8) sum++; for(int i=0;i='a'&&x[i]<='z')) fact1++; else if(x[i]>='A'&&x[i]<='Z') fact2++; else fact3++; } if(fact1>0&&fact2>0) sum++; if(fact1+fact2>0&&fact3>0) sum++; printf("This password is "); if(sum==3) printf("STRONG"); else if(sum==2) printf("GOOD"); else if(sum==1) printf("ACCEPTABLE"); else printf("WEAK"); printf("\n");}} 可不可以帮我翻译成Pascal 急

#include<iostream>
#include<cstdio>
#include<cstring>
#include<algorithm>
#include<cmath>
#define F(i,j,n) for(int i=j;i<=n;i++)
#define D(i,j,n) for(int i=j;i>=n;i--)
#define LL long long
using namespace std;
int n,x,f[30][10],a[10];
const LL g[7]={1,4,6,8,12,14,18};
LL ans=0;
char ch;
void calc()
{
if ((a[0]+a[1]*2+a[3]+a[6]*2)*(a[2]+a[5]+a[1]+a[6])*(a[4]+a[5]*2)%7==0)
{
LL tmp=1;
F(i,0,6) tmp=tmp*f[g[i]][a[i]];
ans=ans+tmp;
}
}
void dfs(int k)
{
if (k>6)
{
calc();
return;
}
F(i,0,6)
{
a[k]=i;
dfs(k+1);
}
}
int main()
{
memset(f,0,sizeof(f));
scanf("%d\n",&n);
F(i,1,n)
{
ch=getchar();
while (ch<'A'||ch>'Z') ch=getchar();
scanf("%d",&x);
f[ch-'A'][(x%7+7)%7]++;
}
dfs(0);
printf("%lld\n",ans);
}

求翻译

求翻译

最好都掌握。