Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано предложение. Определить долю в процентах букв а в нем(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 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.