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

Question

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

Comments

Большие и малые буквы различать?

---

без разницы это паскаль он не регистрозависимый

---

Вы хорошо подумали, что написали? Нерегистрозависимый текст программы, а не обрабатываемые данные.

---

всё понял, лучше различать

---

Т.е. 2х26 букв

---

А какая версия Паскаля?

---

PascalABCNET

---

О... прогресс! )))

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