Распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения написать программу в паскале

Распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения написать программу в паскале
Гость
Ответ(ы) на вопрос:
Гость
const   n=8; var   aNam, aFam, aDat: array[1..n] of string;   i: integer; begin   aNam[1]:='Олег'; aFam[1]:='Бубенков'; aDat[1]:='1993';   aNam[2]:='Игорь'; aFam[2]:='Бросов'; aDat[2]:='1991';   aNam[3]:='Тимур'; aFam[3]:='Наружный'; aDat[3]:='1961';   aNam[4]:='Анастасия'; aFam[4]:='Боброва'; aDat[4]:='1985';   aNam[5]:='Михаил'; aFam[5]:='Тапаров'; aDat[5]:='1957';   aNam[6]:='Евгений'; aFam[6]:='Костарева'; aDat[6]:='1992';   aNam[7]:='Мария'; aFam[7]:='Никитин'; aDat[7]:='1977';   aNam[8]:='Ксения'; aFam[8]:='Бабенкова'; aDat[8]:='1978';   writeln('Лица, чьи фамилии начинаются на букву "Б"');   for i := 1 to n do     if aFam[i][1] = 'Б' then       writeln(aNam[i],' ',aFam[i], ' (', aDat[i], ')') end. тестовый прогон: Лица, чьи фамилии начинаются на букву "Б" Олег Бубенков (1993) Игорь Бросов (1991) Анастасия Боброва (1985) Ксения Бабенкова (1978) Возможна также более "современная" запись программы --------------------------------------------------------------------------------------- const   n = 8; type   tP = record     Nam: string;     Fam: string;     Dat: string   end; var   M: array[1..n] of tP;   i: integer; begin   with M[1] do begin Nam := 'Олег'; Fam := 'Бубенков'; Dat := '1993' end;   with M[2] do begin Nam := 'Игорь'; Fam := 'Бросов'; Dat := '1991' end;   with M[3] do begin Nam := 'Тимур'; Fam := 'Наружный'; Dat := '1961' end;   with M[4] do begin Nam := 'Анастасия'; Fam := 'Боброва'; Dat := '1985' end;   with M[5] do begin Nam := 'Михаил'; Fam := 'Тапаров'; Dat := '1957' end;   with M[6] do begin Nam := 'Евгений'; Fam := 'Костарева'; Dat := '1992' end;   with M[7] do begin Nam := 'Мария'; Fam := 'Никитин'; Dat := '1977' end;   with M[8] do begin Nam := 'Ксения'; Fam := 'Бабенкова'; Dat := '1978' end;   writeln('Лица, чьи фамилии начинаются на букву "Б"');   for i := 1 to n do     With M[i] do begin       if Fam[1] = 'Б' then         writeln(Nam, ' ', Fam, ' (', Dat, ')')     end end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы