Задание:
Помогите с решением, пожалуйста! На завтра уже нужно (Задание №3. Строковые переменные
Решение:
var i,j: integer; s: string; beginread (s); writeln; for i: =1 to length (s) dobeginfor j: =0 to i-1 doif (s[i]<>s[j]) or (s[i]=') then for j: =i+1 to length (s) do if (s[i]<>s[j]) or (s[i]=') then write (s[i],'); end; end.
Знаете другой ответ?