Напишите программу в паскале, которая выбирает из списка футболистов, год рождения которых находится в диапазоне от K до M , и которые забили за сезон ровно B мячей.
Входные данные
В первой строке вводятся три числа: K , M и B . Во второй строке записано количество футболистов в списке N . Следующие N строк имеют формат:
<фамилия> <имя> <год рождения> <число забитых мячей>
Выходные данные
Программа должна вывести фамилии и имена тех футболистов, год рождения которых находится в диапазоне от K до M , и которые забили за сезон ровно B мячей. В последней строке программа выводит количество футболистов в итоговом списке.
Напишите программу в паскале, которая выбирает из списка футболистов, год рождения которых находится в диапазоне от K до M , и которые забили за сезон ровно B мячей.
Входные данные
В первой строке вводятся три числа: K , M и B . Во второй строке записано количество футболистов в списке N . Следующие N строк имеют формат:
<фамилия> <имя> <год рождения> <число забитых мячей>
Выходные данные
Программа должна вывести фамилии и имена тех футболистов, год рождения которых находится в диапазоне от K до M , и которые забили за сезон ровно B мячей. В последней строке программа выводит количество футболистов в итоговом списке.
Входные данные
В первой строке вводятся три числа: K , M и B . Во второй строке записано количество футболистов в списке N . Следующие N строк имеют формат:
<фамилия> <имя> <год рождения> <число забитых мячей>
Выходные данные
Программа должна вывести фамилии и имена тех футболистов, год рождения которых находится в диапазоне от K до M , и которые забили за сезон ровно B мячей. В последней строке программа выводит количество футболистов в итоговом списке.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Пример решения на языке Pascal:
program FootballPlayers;var
K, M, B, N, i, yearOfBirth, goals: integer;
lastName, firstName: string;
begin
readlnK,M,BK, M, BK,M,B;
readlnNNN;
for i := 1 to N do
begin
readlnlastName,firstName,yearOfBirth,goalslastName, firstName, yearOfBirth, goalslastName,firstName,yearOfBirth,goals;
if (yearOfBirth >= K) and (yearOfBirth <= M) and goals=Bgoals = Bgoals=B then
writeln(lastName, ' ', firstName);
end;
writelnNNN;
end.
Пример входных данных:
1995 2000 104
Messi Lionel 1987 12
Ronaldo Cristiano 1985 15
Neymar Junior 1992 10
Mbappe Kylian 1998 10
Пример выходных данных:
Neymar JuniorMbappe Kylian
2