Работа с файлами. Опции

[@WARlock@]

Дан текстовый файл. Вывести на экран те символы которые встречаются в нем ровно один раз.

[Lapp]

Символы, наверное, имеются в виду неуправляющие..
Примерно так можно:

  f:file of byte;
  a:array[33..255]of integer;
  b:byte;
....
  for i:=33 to 255 do a[i]:=0;
  while not EoF(f) do begin
    Read(f,b);
    if b>32 then Inc(a[b])
  end;
  for i:=33 to 255 do if a[i]=1 then Write(Char(i))

Сообщение отредактировано: volvo - 5.11.2006 19:08