Напиши программу которая считывает с клавиатуры две строки символов…

Question

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

Answer 1

71

gg_lesha

01 апреля 2023

Program Pr1; uses crt; var stroka,stroka1: string; i,b,c,a: integer; mas: array['A'… 'я'] of integer; r: char; Beginclrscr; 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; endelse 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: