Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var s:String;
- a:array['A'..'Z'] of Integer;
- i,min:Longint;
- c,bc:Char;
- begin
- readln(s);
- min:=100;
- for i := 1 to length(s) do
- begin
- bc := upcase(s[i]);
- a[bc] := a[bc] + 1;
- end;
- for c := 'Z' to 'A' do
- if (a[c]<min) and (a[c]<>0) then
- min:=a[c];
- for c := 'A' to 'Z' do
- if a[c]=min then
- begin
- writeln(c);
- break;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
