varc: integer;b: boolean;beginb := true;var s := readstring();for var i := 1 to s.Length dobeginfor var j := 1 to s.Length dobeginif (s[i] = s[j]) and (i <> j) thenbegin b := false;break; endelseend;if (b = true) then c := c + 1;b := true;end;write(c);end.
begin b := true; var s := readstring(); for var i := 1 to s.Length do begin for var j := 1 to s.Length do begin if (s[i] = s[j]) and (i <> j) then begin b := false;break; end else end; if (b = true) then c := c + 1; b := true; end; write(c); end.
Answers & Comments
Verified answer
varc: integer;b: boolean;beginb := true;var s := readstring();for var i := 1 to s.Length dobeginfor var j := 1 to s.Length dobeginif (s[i] = s[j]) and (i <> j) thenbegin b := false;break; endelseend;if (b = true) then c := c + 1;b := true;end;write(c);end.c: integer;
b: boolean;
begin
b := true;
var s := readstring();
for var i := 1 to s.Length do
begin
for var j := 1 to s.Length do
begin
if (s[i] = s[j]) and (i <> j) then
begin b := false;break; end
else
end;
if (b = true) then c := c + 1;
b := true;
end;
write(c);
end.