ComeBack

Czy mógłby mi ktoś pomóc w zamianie kodu programu napisanego w C na języka Pascala:


#include < cstdio >
#include < cstring >

char c[206][12]

bool palindrom(int _i)
{

int l = strlen(c[_i] )

for(int i=0;i

if(c[_i][i]!=c[_i]
[l-1-i])
return false;
return true;
}

bool suma(int _i)
{
int l = strlen(c[_i])
for(int i=0;i
if(c[_i][i]+c[_i][i+1] == 220)
return true;
return false;
}

int main()
{
int n = 200;
for(int i=0;i
scanf("%s",c+i)

int nieparzyste = 0
for(int i=0;i
if(strlen(c[i])&1) nieparzyste++
if(false)
printf("a) Parzyste:
%d, Nieparzyste %d\n",200-nieparzyste,nieparzyste)

if(false)
for(int i=0;i
if(palindrom(i))
printf("%s\n",c[i])
if(true)
for(int i=0;i
if(suma(i))

printf("%s\n",c[i])

return 0;
}

Z góry dziękuję.