Идея вот в чем, я не знаю, как на паскале, но на С++ это #include < iostream > #include < fstream > #include < string > using namespace std; int main(){ fstream f("путькфайлу.txt", ios::in); string s, r=""; //Пока не конец файла while(!f.eof()){ //Считать очередную строку getline(cin, s); //К r добавить первый символ r+=S[0]; } //Результат в r cout << r; f.close(); return 0; }
#include < iostream >
#include < fstream >
#include < string >
using namespace std;
int main(){
fstream f("путькфайлу.txt", ios::in);
string s, r="";
//Пока не конец файла
while(!f.eof()){
//Считать очередную строку
getline(cin, s);
//К r добавить первый символ
r+=S[0];
}
//Результат в r
cout << r;
f.close();
return 0;
}