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

[@WARlock@]

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

[@WARlock@]

uses crt;
var
s:array [char] of integer;
f:file of string;
a:string;
i:integer;
begin clrscr;
assign(f,'c:\1.txt');
reset(f);
read(f,a);
for i:= 1 to length(a) do inc(s[a[i]]);
begin
writeln('Не повторяющиеся символы:');
writeln;
for i:=1 to 255 do
if s[char(i)] = 1 then writeln(char(i));
end;
readln;
close(f);
end.

Во-первых, тегами пользуйся... А во-вторых, тебе же так и подсказали, зачем постить уже данное решение еще раз?

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