ПОМОГИТЕ РЕБЯТА!!! НУЖНО РЕШИТЬ 3 ПРОГРАММЫ!!!

1) В файле fraza.txt написанно одно предложение. Надо создать программ в Паскаль что-бы он переписывал в другой файл cuvinte.txt те слова из предложении которые начинаются и заканчиваются тот же буквой!!!
Пример: ANA A TACUT SI APA S-A SCURS.
Результат должен быть такой: ANA TACUT APA SCURS

2) В файле numere.txt написан ряд значении типа logint. Надо создать программ который сможет переписывать только цыфры ПАЛИНДРОМ(Palindrom) в файле palindrom.txt

3) В файле fraza.txt написано одно предложение. Надо создать программ который сможет переписывать в файле cuvinte.txt слова Полиндром(Polindrom).
Пример: Предложение - Lupul a baut apa din cana lui ENE.
Результат: APA LUPUL ENE

1

Ответы и объяснения

2013-12-10T17:15:11+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Универсальное решение на три задания, запись в файлы доделать самостоятельно

type
    string_array = array[1..200]of string;

var
    a: string_array;
    a_n, i, j: integer;
    s, firstlast, palindrom: string;
    p: boolean;

procedure GetWords(var sa: string_array; var sa_n: integer; s: string);
var
    i: integer; t: string;
begin
    s := s + ' ';
    for i := 1 to length(s) do
    begin
        if s[i] in [' ', ',', '.', ':', ';'] then begin
            if t <> '' then begin
                sa_n := sa_n + 1;
                sa[sa_n] := t;
                t := '';
            end;
        end
        else
            t := t + s[i];
    end;
end;

begin
    read(s);
    GetWords(a, a_n, s);
   
    for i := 1 to a_n do
    begin
        p := true;
        for j := 1 to length(a[i]) div 2 do
            p := p and (a[i][j] = a[i][length(a[i]) - j + 1]);
        if p then
            palindrom := palindrom + a[i] + ' ';
        if a[i][1] = a[i][length(a[i])] then
            firstlast := firstlast + a[i] + ' ';
    end;
   
    writeln(palindrom);
    writeln(firstlast);
end.