1.Дано предложение. Определить долю (в %) букв «а» в нём(предложения вводить...

Question

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

Answer 1

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 ABC
var i,n:integer;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]='p') and (a[i+1]='o') then n+=1;
writeln(n);
end.