Дано предложение. определить долю в процентах букв а в нем(pascal abc)

Ну? как то так 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.

матоже это по информатике проходим

добраться до театра-есть билет-нет-найти кассуу-куп билет

-да-показать билет-да-пройти в зал-сесть на место

 

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт