Задание с4.ЕГЭ по информатике.
Задание с4.ЕГЭ по информатике.На вход программе подаются сведения об учащихся,участвовавших в олимпиаде.В первой строке сообщается количество учащихся N(не первышающее 1000),каждая из следующих N строк имеет следующий формат:
<фамилия> <имя> <отчество> <класс>
где <фамилия>,<имя>,<отчество>,<класс> - строки,состоящие не более чем из 20 символов без пробелов,<класс> - целое число в диапазоне от 6 до 11.<фамилия>,<имя> и <отчество> разделены пробелом.
Пример входной строки:
Иванов Пётр Сергеевич 11
Требуется написать наиболее эффективную программу на языке Pascal,которая будет выводить на экран информацию о максимальной длине фамилии учащихся и количестве учащихся,имеющих фамилию максимальной длины.
<фамилия> <имя> <отчество> <класс>
где <фамилия>,<имя>,<отчество>,<класс> - строки,состоящие не более чем из 20 символов без пробелов,<класс> - целое число в диапазоне от 6 до 11.<фамилия>,<имя> и <отчество> разделены пробелом.
Пример входной строки:
Иванов Пётр Сергеевич 11
Требуется написать наиболее эффективную программу на языке Pascal,которая будет выводить на экран информацию о максимальной длине фамилии учащихся и количестве учащихся,имеющих фамилию максимальной длины.
Гость
Ответ(ы) на вопрос:
ГостьProgram Shkola; var nc:array[1..99] of integer; p:1..99; c:char; i, k, N, min: integer; begin readln(N); for i:=0 to 99 do nc:=0; for i:=1 to N do begin repeat read(c) until c=’ ’; {считана фамилия} repeat read(c) until c=’ ’; {считаны инициалы} readln(p); nc[p]:=nc[p]+1; end; min:=N; for i:=1 to 99 do if nc>0 then begin if nc<min>; end; for i:=1 to 99 do if nc=min then writeln(i); readln end.
Не нашли ответ?
Похожие вопросы