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