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

Question

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

Comments

русских

---

уже не надо

---

лагодарю))

---

просто букв в предложении)

---

ага))^^

---

Вы так и не поняли, что буква для человека и для компьютерной программы - не одно и то же? И что предложение для Вас и для программы - совершенно разные вещи...

---

уф)

---

сли бы я все знала

---

бы не спрашивала

---

действительно... надо так много знать, чтобы понимать отличие латинской "а" от русской "а"... Это же надо было учить информатику, чтобы понимать, что у них изображение одинаковое, а внутренние коды - разные.

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.

Comments

чем смогла, помогла))

---

спасибо большое))))))