Акиндин
6 год назад
Напишите программу, которая находит все символы, встречающиеся в обеих переданных ей строках.Входные данныеНа вход программы подаются две символьные строки, каждая строка завершается символом "конец строки".Выходные данныеПрограмма должна вывести все символы, которые встречаются в обеих строках, в порядке возрастания их ASCII-кодов. Если таких символов нет, нужно вывести слово 'NO'.Примерывходные данныеqwertyasdqwhyвыходные данныеqwyвходные данныеqwerty12345выходные данныеNOPascal ABC 1.8 Программа должна быть составлена по теме множества
ОТВЕТЫ
Bieber Mathilde
Oct 24, 2020
var set1: Set of Char;
set2: Set of Char;
s1, s2: string;
i: integer;
done: boolean;
c: char;
begin
set1 := [];
set2 := [];
readln(s1);
readln(s2);
for i := 1 to length(s1) do
include(set1, s1[i]);
for i := 1 to length(s2) do
include(set2, s2[i]);
done := False;
for c := #0 to #255 do
if (c in set1) and (c in set2) then
begin
done := True;
write(c);
end;
if not done then
write('NO');
writeln;
end.
set2: Set of Char;
s1, s2: string;
i: integer;
done: boolean;
c: char;
begin
set1 := [];
set2 := [];
readln(s1);
readln(s2);
for i := 1 to length(s1) do
include(set1, s1[i]);
for i := 1 to length(s2) do
include(set2, s2[i]);
done := False;
for c := #0 to #255 do
if (c in set1) and (c in set2) then
begin
done := True;
write(c);
end;
if not done then
write('NO');
writeln;
end.
695
Смежные вопросы:
