Задание:
Напиши программу которая считывает с клавиатуры две строки символов и выводит на экран: символы, которые встречаются в обеих строках (ПОМОГИТЕСРОЧНО)
Решение:
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.
Знаете другой ответ?