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

292

360

Посмотреть ответы 2

Ответы на вопрос:

VlStar

Информатика

4,5(22 оценок)

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.

альбина350

Информатика

4,6(35 оценок)

аааааааааааааа

Объяснение:

аааааааааааааа

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.