Автор Тема: Нужно решить задачу в Delphi с файлами, помогите?  (Прочитано 1953 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Alex_93*

  • Новичок
  • *
  • Сообщений: 1
    • Просмотр профиля
текст задачи: Дан файл, содержащий в каждой отдельной строке фамилию, предмет и оценку(на 1 фамилию - 1...n предметов), нужно вывести список студентов, имеющих оценки только 4 и 5 по всем предметам.. задачу нужно срочно сдавать, поэтому буду рад любой помощи, заранее спасибо!!
« Последнее редактирование: 29 Декабря 2010, 13:37:33 от Asix »

Оффлайн testtest

  • Старожил
  • ****
  • Сообщений: 376
    • Просмотр профиля
while not eof(f) do begin
readln(f,s);
if s[length(s)] in ('4','5') writeln(s);
end;