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

ПОМОГИТЕ РЕБЯТА! НУЖНО РЕШИТЬ 3 ПРОГРАММЫ! 1) В файле fraza.txt написанно одно предложение. Надо создать программ в Паскаль что-бы он переписывал в другой файл cuvinte.txt те слова из предложении которые начинаются и заканчиваются тот же буквой! Пример: ANA A TACUT SI APA S-A SCURS. Результат должен быть такой: ANA TACUT APA SCURS2) В файле numere.txt написан ряд значении типа logint. Надо создать программ который сможет переписывать только цыфры ПАЛИНДРОМ (Palindrom) в файле palindrom.txt3) В файле fraza.txt написано одно предложение. Надо создать программ который сможет переписывать в файле cuvinte.txt слова Полиндром (Polindrom). Пример: Предложение — Lupul a baut apa din cana lui ENE. Результат: APA LUPUL ENE

в избранное

genlov

22 августа 2022

Универсальное решение на три задания, запись в файлы доделать самостоятельно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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?