Ответы и объяснения

Лучший Ответ!
2014-03-23T15:55:51+00:00
Var a:string;
i,j:integer;
b:boolean;
begin
readln(a);
b:=true;
for i:=1 to length(a) do
  for j:=1 to length(a) do
    if i=j then continue
      else
    if a[i]=a[j] then begin
      b:=false;
      break;
      end;
writeln(b);
end.
Комментарий удален
можно и так, разницы 0) почти на любую задачу каждый пишет свое решение
Спасибо, понятно)