Вот тут несколько задачек, которые училка трясет к субботе. Не поможете. Задачи на любой вкус. Заранее благодарю за помощь.
1. Текст задан строкой var St: string; Напечатать те слова, которые являются симметричными (казак).
2. Все гласные буквы, которые входят в последнее слово
3. type myfile = file of char;
Опишите процедуру next(f), заменяющую в файле каждую ЦИФРУ на следующую по величине цифру ('9'заменять на '0').
4. Напишите функцию CountStrD(f), которая находит количество строк в файле, заканчивающихся буквой "d".
5. Напишите процедуру SeekType(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы типов.
Я смотрю уже третья тема на задачи подобного типа.
Причем больше всего удивляет однотипность формулировки: