Написать программу , которая позволяет найти нужные сведения в телефонном справочнике d\phone. txt программа должна запрашивать фамилию человека и выводить его в телефон. если в справочнике есть одинаковые фамилии, то программа должна ввести список всех людей, имеющих эти фамилии.

Pascalabc.net const //формат файла   //фамилия имя номер     fl = 'd: \phone.txt';     var    t : text;     c : char;     fnm,s : string;   begin  assign (t,fl);   reset (t);       writeln ('укажите фамилию');   readln (fnm);   writeln();         while not eof (t) do    begin      s : = '';             //считываем фамилию read (t,c);           while c < > ' ' do        begin        s : = s + c;         read (t,c);         end; //если фамилию нужная то дочитываем              //иначе переходим к следующему if s = fnm then      begin        write (s+' ');         while not eoln(t) do          begin          read (t,c);           write (c);           end;         readln (t);         writeln ();       end      else      readln (t);           end;   close (t);   end.

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

 

 

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}