Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

(Код паскаль)Дан текстовый файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские – в file.rus, все остальные символы – в file.oth.

Ответ оставил Гость

program Lyonyshna;
const
    Rus = [А..Я, а..я];
    Lat = [A,..Z, a..z];
Var f,frus,flat,foth:text;
    i: integer;
    st,strus,stlat,stoth: string;
begin
    Assign(f, file1.txt);
    Rewrite(f);
    write(Введите исходную строку: ); readln(st);
    writeln(f,st);
    close(f);
    strus:=;
    stlat:=;
    stoth:=;
    Reset(f);
    Assign(frus, russian.txt);
    Rewrite(frus);
    Assign(flat, latin.txt);
    Rewrite(flat);
    Assign(foth, other.txt);
    Rewrite(foth);
    Readln(f,st);
    for i:=1 to length(st) do
      if st[i] in rus then strus:=strus+st[i]
        else
          if st[i] in lat then stlat:=stlat+st[i]
            else
              stoth:=stoth+st[i];
    Writeln(frus,strus);
    Writeln(flat,stlat);
    Writeln(foth,stoth);
    Writeln(Русские символы: ,strus);
    Writeln(Латинские символы: ,stlat);
    Writeln(Другие символы: ,stoth);
    Close(f); Close(frus); Close(flat);  Close(foth);
end.