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

40 баллов!

В файле input.txt записаны данные об соучастниках конкурса Рога и Копыта: фамилии, имена и количество баллов, набранных в первом туре. Во второй тур проходят соучастники, которые набрали более K баллов в первом туре. Напишите программку, которая выводит в файл output.txt фамилии и инициалы всех участников, прошедших во второй тур, с нумерацией. Перечень обязан быть отсортирован по фамилиям в алфавитном порядке.



Входные данные


В первой строке файла input.txt записано естественное число K . В следующих строчках записаны данные об соучастниках в последующем формате:

lt;фамилияgt; lt;имяgt; lt;количество балловgt;

Данные каждого участника записаны в отдельной строке, все элементы разбиты одиночными пробелами. Количество соучастников не превышает 10000.



Выходные данные


В первой строке нужно вывести в файл output.txt количество соучастников второго тура. Затем программка обязана вывести фамилии и инициалы всех соучастников, прошедших во 2-ой тур, с нумерацией. Имя необходимо сократить до одной буковкы. Список обязан быть отсортирован по фамилиям в алфавитном порядке.



Образцы

Входные данные

80

Smith Jack 80

Cormen Alex 92

Knuth Donald 98

Mirabella Maria 78

Выходные данные

2

1) A. Cormen

2) D. Karmen

Задать свой вопрос
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт