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>
1) Вопрос некорректен, если под словом переработка имеется ввиду обработка то да, но если что то другое то нет
2) Нет (правильно двоичная)
3) 4 (вопросительный знак недопустим)
До 8 с шагом 0,7 не получается.
var a, b, h: integer;
begin
read(a, b, h);
write((a+b)/2*h);
end.