FreePascal

[Student_Dead1nS1de]

Напиcать программу, определяющую количество уникальных подстрок из трех символов входящих
в заданную строку. FreePascal
Вот эту показал преподу, не правильно рабтает.
uses crt;
var len,i,j,t: integer;
s,s1,s2: string; flag:boolean;
begin
clrscr;
writeln('Enter the line');
readln(s);
len:=length(s);
t:=0;
flag:=false;
for i:= 1 to len-2 do
begin
s1:=s[i]+s[i+1]+s[i+2];
for j:=1 to len-2 do
begin
if (j<>i) then begin
s2:= s[j]+s[j+1]+s[j+2];
if s1 = s2 then flag:=true;
end;
end;
if not flag then t:=t+1;
s1:='';s2:=''; flag:= false;
end;
writeln(t);
readln;
end.

[evg_m]

вы считаете не уникальные (различные) подстроки, а все подстроки имеющие повторы.
причем считаете их по крайней мере дважды.
вам же надо наоборот, из общего(полного) числа подстрок исключить все повторяющиеся.

P.S. замените переменную flag: boolean; на переменную flagpovtor: boolean;
и выполняйте суммирование в соответствии с новой переменной
( и не забудьте ее правильно инициализировать true нашли повтор или false нет)

[Student_Dead1nS1de]

evg_m, Можете примерно накидать?? Или алгоритм, дать?

[evg_m]

	
	
цикл по всем подстрокам
  поиск повторов в просмотренной части
  если не нашлиповтор то это уникальная

[Student_Dead1nS1de]

Кто еще что знает?