Pascal1) Задан список из 7 фамилий

Pascal1) Задан список из 7 фамилий. Определить, имеется ли в списке фамилия, начинающаяся с буквы «А» и состоящая из 6 букв. Если да, то вывести ее на экран 2) В заданном тексте удалить символ ' , ' и подсчитать число удаленных символов. Предусмотреть возможность задания с клавиатуры удаляемого символа.3) Организовать простейшую базу данных по студентам группы. Сведения о студенте включают: ФИО, год рождения, пол, средний балл. Обеспечить ввод данных, редактирование, вывод на экран. Информацию хранить в типизированном файле. Помогите пожалуйста решить. Отдаю полностью все свои баллы

в избранное

vlad967

24 августа 2022

1) var i: integer; s: array [1… 7] of string; begin writeln ('Введите 7 фамилий: '); for i: =1 to 7 do readln (s[i]); for i: =1 to 7 do if (s[i][1]='А') and (length (s[i])=6) then writeln ('Подходящие фамилии: ', s[i]) end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?