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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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