Написать программу на паскале дается список студентов с личными данными и данными о днях рождения. требуется вывести номера тех студентов, которые родились летом. летними считать следующие месяцы: июнь, июль, август. месяцы нумеруются с единицы. формат входных данных в первой строке входного файла находится число n(1≤n≤50). в следующих n строках описываются данные о студентах, по одной строке на человека. каждая строка содержит через пробел фамилию, имя, отчество, число, месяц и год рождения. имя, фамилия и отчество представляют из себя последовательность символов или латинского алфавитов, и не содержат каких-либо пробельных символов. формат выходных данных в выходной файл выведите k - количество студентов, родившихся летом. после этого выведите k чисел - номера студентов, родившихся летом. студенты нумеруются с единицы в том порядке, в котором они перечислены во входном файле. номера выводите в порядке возрастания. примеры: вход 2 иванов иван иванович 10 2 2007 петров петр петрович 10 6 2007 выход 1 2
Kikinaxxxxxx
2
17.07.2019 21:00
1
Другие вопросы по теме Информатика
Кличяня
05.11.2020 14:03
Зайчик3468
05.11.2020 14:02
bumnov23
05.11.2020 14:02
Волкова24
05.04.2021 12:43
nikakoy43
25.10.2019 10:12
SANH1L
25.10.2019 10:18
sonicbum
12.06.2019 00:30
Martishevska
18.10.2020 06:29
рома1342
18.10.2020 06:29
skrydyya
18.10.2020 06:29
Популярные вопросы
- Площадь прямоугольника равна 120 квадратных сантиметров.его длина на 7 см больше...
3 - Составьте предложения со словами богиня,предания...
2 - Впошивочном цехе было 4 рулона ситца,по 15 м в каждом, и 3 рулона сатина, по 24...
3 - Составить диалог на интересную тему...
3 - Написать рассказ как я провел летние каникулы на языке...
3 - Напишите, с этого текста всевозможные словосочетания! ! надо . ветер ласково гладил...
3 - Швейной мастерской было 12 кусков материи и по 40 м в каждом и 8 кусков материи...
3 - Составить предложение с прилагательным больной ребёнок и с глаголом больной выздоровел...
2 - Язык 5 класс номер 37 стр 17 перевод...
1 - Можете изменять по падежам буду 1.международные отношения 2.межнациональное общество...
2
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
Пример вывода:
1
1