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

Имеется информация об адресах учеников одного класса в виде: фамилия, имя, город, улица, № дома. Написать программу, позволяющую вывести список учеников, проживающих в городе

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

Type
  Uch=record
    fam:string[20];
    nam:string[20];
    city:string[20];
    street:string[20];
    numb:string[8]
  end;

var
  f:file of Uch;
  bUch:Uch; { буфер }
  c:string;
begin
  Assign(f,Uch.txt);
  Reset(f);
  Write(Введите название города: ); Readln(c);
  while not Eof(f) do begin
    Read(f,bUch);
    if c=Trim(bUch.city) then
      With bUch do Writeln(fam, ,nam, ,street, ,numb)
  end;
  Close(f)
end.