Перевести код с Pascal

@klava1991 · Регистрация: 05.10.2013

Студворк — интернет-сервис помощи студентам

Помогите разобраться, что тут написано. Хотелось бы это на Си, т.к паскаль не знаю( заранее спасибо)

Pascal

var
 
    ans, a, p :int64;
 
    i :longint;
 
    d, h :array[1 .. 200000] of int64;
 
begin
 
 
 
    readln(a);
 
 
 
    p := 2;
 
    ans := 1;
 
 
 
    while (p * p <= a) do begin
 
 
 
        if (a mod p = 0) then begin
 
            ans := ans * p;
 
            inc(h[p]);
 
        end;
 
 
 
        while (a mod p = 0) do begin
 
            inc(d[p]);
 
            a := a div p;
 
        end;
 
 
 
        inc(p);
 
    end;
 
 
 
    ans := ans * a;
 
 
 
    for i := 2 to 100000 do begin
 
 
 
        while (h[i] * ans < d[i]) do begin
 
            ans := ans * i;
 
            inc(h[i]);
 
        end;
 
 
 
    end;
 
 
 
    writeln(ans);
 
 
 
end.

@aLarman · 05.10.2013, 12:52

C++

#include <iostream>
 
using namespase std;
 
int main(int argc, char*argv[])
{
int ans, a, p;
long int i;
int d[200000], h[200000];
cin>>a;
p = 2;
ans = 1;
while(p*p<=a)
{
if(a%p==0)
{
ans = ans * p;
h[p]++;
}
while(a%p == 0)
{
d[p]++;
a = a/p;
}
p++;
}
ans = ans * a;
for(i = 2; i < 100000; i++)
{
while(h[i] * ans < d[i])
{
ans = ans *i;
h[i]++;
}
}
cout << ans;
return 0;
}

примерно так

	05.10.2013, 12:52

Опции темы

Перевести код с Pascal

Решение