Что такое руБИ отмечу как лучший ответ = правильный ответ

Question

Информатика: Что такое руБИ отмечу как лучший ответ = правильный ответ

kristinka75 · Accepted Answer

Считаем, что поля записи в текстовом файле разделены символом ";", тогда задачу можно решить так:

type

Person = record

fname: string;//Фамилия ученика

lname: string;//Имя

school: integer;//Номер щколы

end;

var student: Person;

n,s,p:integer;

tmp:string;

fin:text;//Файловая переменная

begin

assign(fin, 'students.txt');

reset(fin);

readln(n);//Получаем номер школы

while not (eof(fin)) do

begin

readln(fin, tmp);//Читаем строку из файла

p:= Pos(';', tmp);

Delete(tmp, 1, p);//удаляем все до первого разделителя

p:= Pos(';', tmp);

Delete(tmp, 1, p);//удаляем все до второго разделителя

// в tmp остался номер школы

student.school:=strtoint(tmp);

if student.school=n then s+=1;

end;

writeln(s);

end.