Предмет: Информатика,
автор: krismig
Pascal
1)Задан список из 7 фамилий. Определить, имеется ли в списке фамилия, начинающаяся с буквы "А" и состоящая из 6 букв. Если да, то вывести ее на экран
2)В заданном тексте удалить символ ' , ' и подсчитать число удаленных символов. Предусмотреть возможность задания с клавиатуры удаляемого символа.
3)Организовать простейшую базу данных по студентам группы. Сведения о студенте включают: ФИО, год рождения, пол, средний балл. Обеспечить ввод данных, редактирование, вывод на экран. Информацию хранить в типизированном файле.
Помогите пожалуйста решить. отдаю полностью все свои баллы
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: История,
автор: Arina1572
Предмет: Английский язык,
автор: Zеr0
Предмет: Биология,
автор: zulkaramovaulzham08
Предмет: Химия,
автор: MrExile
Предмет: Алгебра,
автор: Adele555