CCCP
Witaj, nie da się tego kody przepisać na Pascala ponieważ Pascal nie umożliwia np. konwersowania wyjścia.
Opisałem ten kod komentarzami. Dodam, że nikt przy zdrowych zmysłach nie użyje tak nielogicznego i skomplikowanego kodu w pęli for.
Poza tym nie jest to w C++ tylko w ANSI C.
#include <stdlib.h> #include <stdio.h> long a=10000; long b; long c=28000; long d,e; long f[28001]; long g;
int main() {
for( ; b-c/*for działa dopóki b-c > 0 */ ; f[b++]=a/5 /* przypisz do elementu tablicy f o indeksie b+1 iloraz a i liczby 5*/ );
for( ; d=0 , g=c*2/* dopóki d = 0 i g > 0 */; printf("%.4d",e+d/a)/* wyswietl e + (d/a) wyswietl jako czterocyformwa liczba całkowita */, e=d%a,c-=14 /* e = reszta z dzielnie d przez a; c := c - 14*/ )
for(b=c; /* przypisanie zmienne b wartosci zmiennej c*/ d+=f[b]*a/* dopóki d + (f[b] * a) > 0 */,f[b]=d%--g,d/=g--,--b /* i dopóki resztz z dzielnie d przez g - 1 i d/g oraz b-1 jest większe od zera; */;d*=b /* do d przypisz d * b*/)
Opisałem ten kod komentarzami.
Dodam, że nikt przy zdrowych zmysłach nie użyje tak nielogicznego i skomplikowanego kodu w pęli for.
Poza tym nie jest to w C++ tylko w ANSI C.
#include <stdlib.h>
#include <stdio.h>
long a=10000;
long b;
long c=28000;
long d,e;
long f[28001];
long g;
int main()
{
for( ; b-c/*for działa dopóki b-c > 0 */ ; f[b++]=a/5 /* przypisz do elementu tablicy f o indeksie b+1 iloraz a i liczby 5*/ );
for( ; d=0 , g=c*2/* dopóki d = 0 i g > 0 */; printf("%.4d",e+d/a)/* wyswietl e + (d/a) wyswietl jako czterocyformwa liczba całkowita */, e=d%a,c-=14 /* e = reszta z dzielnie d przez a; c := c - 14*/ )
for(b=c; /* przypisanie zmienne b wartosci zmiennej c*/ d+=f[b]*a/* dopóki d + (f[b] * a) > 0 */,f[b]=d%--g,d/=g--,--b /* i dopóki resztz z dzielnie d przez g - 1 i d/g oraz b-1 jest większe od zera; */;d*=b /* do d przypisz d * b*/)
system("pause");
return 0;
}