
напиши программу которая считывает с клавиатуры две строки символов и выводит на экран : символы ,
которые встречаются в обеих строках ((((ПОМОГИТЕ СРОЧНО)))))

Ответы на вопрос

Program Pr1;
uses crt;
var stroka,stroka1:string;
i,b,c,a:integer;
mas:array['A'..'я'] of integer;
r:char;
Begin
clrscr;
readln(stroka);
readln(stroka1);
b:=length(stroka);
c:=length(stroka1);
if b>c then begin
for i:=1 to c do
for a:=1 to b do if stroka[a]=stroka1[i] then mas[stroka1[i]]:=mas[stroka1[i]]+1;
end
else begin
for i:=1 to b do
for a:=1 to c do if stroka1[a]=stroka[i] then mas[stroka[i]]:=mas[stroka[i]]+1;
end;
for r:='A' to 'я' do if mas[r]>0 then writeln(r,' ',mas[r]);
end.



Программа для считывания и вывода символов, которые встречаются в обеих строках
Для решения этой задачи можно написать программу на языке Python, которая будет считывать две строки символов с клавиатуры и выводить на экран символы, которые встречаются в обеих строках.
Вот пример такой программы:
```python # Считываем две строки символов с клавиатуры string1 = input("Введите первую строку: ") string2 = input("Введите вторую строку: ")
# Преобразуем строки в множества символов set1 = set(string1) set2 = set(string2)
# Находим пересечение множеств символов common_characters = set1.intersection(set2)
# Выводим символы, которые встречаются в обеих строках print("Символы, которые встречаются в обеих строках:") for char in common_characters: print(char) ```
Эта программа сначала считывает две строки символов с помощью функции `input()`. Затем она преобразует каждую строку в множество символов с помощью функции `set()`. После этого она находит пересечение множеств символов с помощью метода `intersection()`. Наконец, она выводит на экран символы, которые встречаются в обеих строках.
Пример использования:
``` Введите первую строку: abcdef Введите вторую строку: defghi Символы, которые встречаются в обеих строках: d e f ```
Обратите внимание, что программа учитывает только уникальные символы в каждой строке и выводит только символы, которые встречаются в обеих строках.


Топ вопросов за вчера в категории Информатика








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili