Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>
Думаю, что эта программа подойдёт:
var count,i,n,min,book: Integer;
a: array[0..100] of Integer;
begin
min:=1000;
writeln('Введите кол-во учебников');
readln(count);
dec(count);
for i:=0 to count do
begin
writeln('Введите кол-во заданий в ',i+1,' учебнике');
readln(n);
a[i]:=n;
end;
for i:=0 to count do
begin
if a[i]<min then
begin
min:=a[i];
book:=i+1;
end;
end;
writeln('Номер учебника, в котором находится наименьшее кол-во заданий: ',book);
end.
Var
x,y:real;
begin
y:=8/5;{км в одной миле}
writeln('введите расстояние в милях');
readln(x);
writeln('расстояние в км: ', x*y);
end.
Var i, j, k: integer;
begin
j := 1;
k := 3;
while (i < 12) do
begin
writeln(j, '/', k, '=', j/k:1:3);
j := j + 2;
k := k + 3;
inc(i);
end;
<span>end.</span>