Предмет: Информатика,
автор: warveis
Pascal
Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст не менее двух раз.
Ответы
Автор ответа:
0
//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
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
Похожие вопросы