Цитата(Эйфория @ 17.4.2009, 15:34)

1.Файл содержит буквы латинского алфавита. Подсчитать количество букв 'р' в файле.
Считать файл в ОЗУ и посчитать кол-во символов циклом. Каждая команда read(f, x) считывает один символ из файла в перем. х, хотя вариантов множество. В отличие от работы с терминалом требуется открыть и закрыть файл: open(f), assign(f,...), close(f)
Цитата
2.Дан текстовый файл f. Определить количество слов в файле. Сформировать файл g, записав в каждой его в строке по одному слову из файла f.
Слова в файле отделяются пробелом, счтывать символы нужно до появления пробела - это слово,хотя вариантов опять же множество.