Pascal 1)задан список из 7 фамилий. определить, имеется - вопрос №206979617 от ilonctik 23.04.2021 12:14

Question

Информатика: Pascal 1)задан список из 7 фамилий. определить, имеется ли в списке фамилия, начинающаяся с буквы а и состоящая из 6 букв. если да, то вывести ее на экран 2)в заданном тексте удалить символ , и подсчитать число удаленных символов. предусмотреть возможность с клавиатуры удаляемого символа. 3)организовать простейшую базу данных по студентам группы. сведения о студенте включают: фио, год рождения, пол, средний . обеспечить ввод данных, редактирование, вывод на экран. информацию хранить в типизированном

ilonctik · Answer

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....