40 баллов! В файле input.txt записаны данные об участниках конкурса «Рога и Копыта»:...

Question

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

Answer 1

Ответ:

Объяснение:

Например, вот так - чтение а из файла и запись 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.