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.
Поделитесь своими знаниями, ответьте на вопрос:
Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам внекотором сегменте интернета: запрос| количество страниц (тыс.)зубры | барсуки | хомяки570| зубры230хомяки100| барсуки & зубрыт8 0| барсуки & хомяки6 0зубры | хомяки330сколько страниц (в тысячах) будет найдено по запросубарсуки | хомяки
барсуки= 570-(хомяки+зубры)=240
барсуки | хомяки = барсуки+хомяки= 240+100= 340
ответ: 340