40 баллов!
В файле input.txt записаны данные об участниках конкурса «Рога и Копыта»: фамилии, имена и количество баллов, набранных в первом туре. Во второй тур проходят участники, которые набрали более K баллов в первом туре. Напишите программу, которая выводит в файл output.txt фамилии и инициалы всех участников, прошедших во второй тур, с нумерацией. Список должен быть отсортирован по фамилиям в алфавитном порядке.
Входные данные
В первой строке файла input.txt записано натуральное число K . В следующих строках записаны данные об участниках в следующем формате:
<фамилия> <имя> <количество баллов>
Данные каждого участника записаны в отдельной строке, все элементы разделены одиночными пробелами. Количество участников не превышает 10000.
Выходные данные
В первой строке нужно вывести в файл output.txt количество участников второго тура. Затем программа должна вывести фамилии и инициалы всех участников, прошедших во второй тур, с нумерацией. Имя нужно сократить до одной буквы. Список должен быть отсортирован по фамилиям в алфавитном порядке.
Примеры
Входные данные
80
Smith Jack 80
Cormen Alex 92
Knuth Donald 98
Mirabella Maria 78
Выходные данные
2
1) A. Cormen
2) D. Karmen
Answers & Comments
Ответ:
Объяснение:
Например, вот так - чтение а из файла и запись b в файл.
var
a,b : byte;
F : file of byte;
begin
assign(F,'input.txt'); reset(F);
read(F,a);
close(F);
assign(F,'output.txt'); rewrite(F);
write(F,b);
close(F);
end.