Question

УМОЛЯЮ ПОМОГИТЕ.Раз пятый кидаю((((
40 баллов даю

Answer 1

Var
S:string;
C:array['a'..'z'] of integer;
T,i:integer;
j:char;
Begin
WriteLn('Введите строку строчных английских букв');
ReadLn(S);
For i:= 1 to Length(S) do
    C[S[i]]:=C[S[i]]+1;
T:=0;
For j:= 'a' to 'z' do
    if (C[j]<>2)and(C[j]<>0) then T:=1;
WriteLn('T = ',T);
End.

Примеры:

Введите строку строчных английских букв
lkjjkl
T = 0

Введите строку строчных английских букв
asdsa
T = 1