1.дано предложение. определить долю (в %) букв «а» в нём (предложения вводить самому) 2.дано предложение.определить: число вхождений в него буквосочетания po число вхождений в него некоторого буквосочетания из двух букв, число вхождений в него некоторого буквосочетания.

115

485

Посмотреть ответы 2

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

kolpak3

Информатика

4,5(56 оценок)

1) на pascal abc var i: integer; n: real; a: string; begin readln(a); for i: =1 to length(a) do if a[i]='a' then n+=1; n: =(n/length(a)*100); writeln(n: 2: 1); end.2) на pascal abcvar i,n: integer; a: string; beginreadln(a); for i: =1 to length(a) doif (a[i]='p') and (a[i+1]='o') then n+=1; writeln(n); end.