Question

Pascal
Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст не менее двух раз.

Answer 1

//PascalABC.Net 3.0, сборка 1066
const
  Lett=['A'..'z'];
var
  s:string;
  f:array['A'..'z'] of byte;
  i:integer;
  c:char;
begin
  for c:='A' to 'z' do f[c]:=0;
  Write('Введите строку: '); Readln(s);
  for i:=1 to Length(s) do
    if s[i] in Lett then Inc(f[s[i]]);
  for c:='A' to 'z' do
    if f[c]>1 then Write(c,' ');
  Writeln
end.

Тестовое решение:
Введите строку: The quick brown fox jumps over the lazy dog
e h o r u