можете перевести прогу с с++ на Free Паскаль?

[Марат121]

#include <fstream>
#include <string>
#include <vector>
#include <algorithm>
 
using namespace std;
 
int main()
{
    ifstream in("INPUT.TXT");
    ofstream out("OUTPUT.TXT");
    string str,Astr,Bstr;
    getline(in,str);
    in.close();
    unsigned int pos=str.find('/',0);
    Astr=str.substr(0,pos);
    Bstr=str.substr(pos+1);
    unsigned int A,B;
    A=atoi(Astr.c_str());
    B=atoi(Bstr.c_str());
    vector<unsigned int> mods,nums;
    out<<A/B;
    if(A=A%B)
    {
        out<<".";
        while((find(mods.begin(),mods.end(),A)==mods.end())&&A)
        {
            mods.push_back(A);
            A*=10;
            nums.push_back(A/B);
            A=A%B;
        }
        for(unsigned int i=0;i<nums.size();i++)
        {
            if(A==mods[i])out<<"(";
            out<<nums[i];
        }
        if(A)out<<")";
    }
    out<<endl;
    out.close();
    return 0;
}

[Марат121]

Free Pascal

[D1973]

А не проще задание озвучить?

[Serge_Bliznykov]

Сообщение от D1973

А не проще задание озвучить?

похоже - вот тут задание - http://www.programmersforum.ru/showthread.php?t=318287