→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Перевести программу с Си на Паскаль 
Автор Сообщение
Начинающий

Регистрация: 24.12.2009
Сообщения: 1
Специальность:

Репутация: 0 [ ? ]
Сообщение Перевести программу с Си на Паскаль
Пожалуйста! Помогите перевести имеющуюся программу на Си на Паскаль:
#include <stdio.h>
long Sum[6561];
void cycle(int n,long sum)
{ int i;
if(n==0)
{ Sum[sum]++; return; }
for(i=0;i<10;i++)
cycle(n-1,sum+i);
}
void main()
{ int N,i;
long Mul=1,RealSum=0;
scanf("%d",&N);
if(N%2) Mul=10;
for(i=0;i<6561;i++) Sum[i]=0;
cycle(N/2,0);
for(i=0;i<6561;i++) RealSum+=Sum[i]*Sum[i];
printf("%ld",RealSum*Mul);
}
Кстати! Программа довольно интересная! Считает количество счастливых билетов в 2n значном номере!


24.12.2009 20:09
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
© 2013 «Форум программистов Украины»