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>
//объявляем все переменные и константы
//константа n, определяющая размер массива
const n = 5;
//делаем предварительное описание тип для массива
type arr = array[1..n] of integer; //целочисленный тип для примера. Можно использовать и вещественный, если потребуется
//и объявляем остальные переменные (включая сам массив)
var
a: arr;
i, sum: integer; //i - переменная цикла, sum - сумма элементов
average: double; //тип может быть любым вещественным
begin
//вводим элементы
<span> writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);</span>
//инициализируем переменную sum
sum := 0;
//далее собственно вычисление
<span> for i:=1 to m do
begin
if (i mod 2) = 0 then //проверка на чётность номера элемента
sum := sum + a[i]; //находим сумму элементов для вычисления среднего арифметического
end;</span>
// и последний шаг - находим среднее арифметическое. Не забываем, что количество чётных элементов только в 2 раза меньше количества. Поэтому используем div 2, то бишь делим без остатка на 2. Полученное число и будет количеством чётных элементов в нашем массиве.
average := sum / (n div 2);
writeln('среднее арифметическое чётных элементов равно');
writeln(average);
end.
Ответ:
скачай приложение NumConverter+
Объяснение:
там можешь решить это
Function C(m,n:integer):integer;
begin
if (m=0)or(n=m) then C:=1
else C:=C(m,n-1)+C(m-1,n-1);
end;
var a,b:integer;
begin
readln(a,b);
writeln('C(',b,',',a,') = ',C(a,b));
end.
Пример:
5 10
<span>C(10,5) = 252</span>
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
