Pascal
Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст не менее двух раз.
//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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
