Опубликовано 03.01.2018 по предмету Информатика от Гость

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

Ответ оставил Гость

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.