Написать программу на паскале дается список студентов с личными данными и данными о днях рождения. требуется вывести номера тех студентов, которые родились летом. летними считать следующие месяцы: июнь, июль, август. месяцы нумеруются с единицы. формат входных данных в первой строке входного файла находится число n(1≤n≤50). в следующих n строках описываются данные о студентах, по одной строке на человека. каждая строка содержит через пробел фамилию, имя, отчество, число, месяц и год рождения. имя, фамилия и отчество представляют из себя последовательность символов или латинского алфавитов, и не содержат каких-либо пробельных символов. формат выходных данных в выходной файл выведите k - количество студентов, родившихся летом. после этого выведите k чисел - номера студентов, родившихся летом. студенты нумеруются с единицы в том порядке, в котором они перечислены во входном файле. номера выводите в порядке возрастания. примеры: вход 2 иванов иван иванович 10 2 2007 петров петр петрович 10 6 2007 выход 1 2
230
438
Ответы на вопрос:
//pascal abc.net v3.0 сборка 1111 var ars: array[1..50] of string; ark: array[1..50] of integer; s: string; i,n,k,j: integer; begin readln(n); k: =0; for i: =1 to n do begin; readln(ars[i]); for j: =1 to 4 do delete(ars[i],1,pos(' ',ars[i])); s: =ars[i]; if (s[1]='6') or (s[1]='7') or (s[1]='8') then begin; inc(k); ark[k]: =i; end; end; writeln(k); for i: =1 to k do writeln(ark[i]); end.пример ввода: 2петров петр петрович 10 6 2007иванов иван иванович 10 2 2007пример вывода: 11
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
TAISKAKISKA12.08.2022 21:26
-
Ruslan12324411.02.2022 23:38
-
zhenyadobr02.04.2020 05:43
-
maksburyas09.04.2020 18:25
-
Ryuuko29.10.2022 00:35
-
Элизия1205.01.2020 12:36
-
kir2808200011.02.2023 12:59
-
Amarcy02.01.2022 16:19
-
Yasenevo103605.08.2021 08:52
-
0LOLOLOSHKA119.10.2022 16:22
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.