C++ --> Pascal


гильдия Мудрецы (Адепт)[2006] гильдия Бойцы (Мастер)[5753] The Legends (Рекрут) Рест Информация
Назад к темам раздела.
2012-11-29 00:50:55 гильдия Мудрецы (Адепт)[2006] гильдия Бойцы (Мастер)[5753] The Legends (Рекрут) Рест Информация
Генератор последовательностей, надо перекинуть код Си++ в паску, не шибко освоился с переводом, а сам реализовать уже не смог, может кто откликнется, буду благодарен.


int n;
cin >> n;
int pos = 0, cur = 1;

for ( ; pos < n ; )
{
for (int i = 0; i < cur; i++)
{
printf("%d ", cur);
pos++;
if (pos == n)
break;
}
cur++;
 
2012-11-29 00:51:27 гильдия Мудрецы (Адепт)[2006] гильдия Бойцы (Мастер)[5753] The Legends (Рекрут) Рест Информация
Ах да, то бишь и пояснения, от, теперь всё, всем снов.