<span>а) E2 -- =($C$3+C$5)/D4</span>
<span>б) E7
-- =($C$3+C$5)/D9</span>
<span>в) C6
-- =($C$3+A$5)/B8</span>
<span>г) F10
- =($C$3+D$5)/E12</span><span> </span>
Интернет магазин наверное
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);
<span>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);
<span>end.</span></span>