Множество

Михаил777

Help me....Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст по одному разу.
1 ответ

Михаил777

var i:integer; b:array[char] of byte;
begin
  for i:=1 to length(s) do inc(b[s[i]]); for i:=0 to 255 do if (b[i]<>0) then write(b[i]);
end;