Pascal abc тема записи с клавиатуры вводится номер школы. файл содержит сведения: фамилию, имя ученика, номер школы. определить кол-во учеников в школе с заданным номером с клавиатуры

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

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.

Список учеников в файле data.txt(см. вложение) //pascal type   tpupils = record       firstname, surname: string;       schoolnumber: integer;   end; var   f: text;   s, buf: string;   i, j, tmp: byte;   num, countpupils: integer;   a: array [1..200] of tpupils; begin   assign(f, 'data.txt');   reset(f);   j : = 1;   while not eof(f) do   begin       readln(f, buf);       buf : = buf + ' ';       tmp : = 1;       for i : = 1 to length(buf) do       begin           if pos(buf[i], ' ') = 0 then s : = s + buf[i]           else           begin               if length(s) > 0 then               begin               case tmp of                   1: begin  a[j].firstname : = s; inc(tmp); end;                   2: begin a[j].surname : = s; inc(tmp); end;                   3:                   begin                       val(s, num, num);                       a[j].schoolnumber : = num;                   end;               end;               //writeln(s);               s : = '';               end;           end;       end;       inc(j);   end;   close(f);   write('введите № школы: ');   readln(num);   for i : = 1 to 200 do   begin       if a[i].schoolnumber = num then           //writeln(a[i].firstname, ' ', a[i].surname, ' ',           //              a[i].schoolnumber);           inc(countpupils);   end;   writeln('количество учеников в данной школе = ',                   countpupils); end.

Заметим, что 15=1+2+4+8, тогда x¹⁵ = x·x²·x⁴·x⁸ алг степень15(арг вещ x, рез вещ p) дано | x> 0 надо | p = x^15 = x*(x^2)*(x^4)*(x^8) нач цел i, вещ xn     ввод x     p: =x; xn: =x | начальные значения     нц для i: =1 до 3           xn: =xn*xn           p: =p*xn     кц     вывод "x^15=", p кон