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

120

281

Посмотреть ответы 2

Ответы на вопрос:

danik131

Информатика

4,8(7 оценок)

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.