Написать программу на паскале дается список студентов - вопрос №5039227 от NeonMax 11.07.2020 23:40

Question

Информатика: Написать программу на паскале дается список студентов с личными данными и данными о днях рождения. требуется вывести номера тех студентов, которые родились летом. летними считать следующие месяцы: июнь, июль, август. месяцы нумеруются с единицы. формат входных данных в первой строке входного файла находится число n(1≤n≤50). в следующих n строках описываются данные о студентах, по одной строке на человека. каждая строка содержит через пробел фамилию, имя, отчество, число, месяц и год рождения. имя,

NeonMax · Answer

//Pascal ABC.NET v3.0 сборка 1111Var  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 dowriteln(ark[i]);end.Пример ввода:2Петров Петр Петрович 10 6 2007Иванов Иван Иванович 10 2 2007Пример вывода:11...