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>
Глицерин – это органическое соединение, трехатомный спирт
алимфатического ряда, сиропообразная бесцветная жидкость, которую
получают омылением жиров или синтетическим способом. Глицерин
применяется в производстве взрывчатых веществ и синтетических смол.
Эманация — в теологии, концептуальный термин, означающий происхождение Универсума (вселенной) посредством истечения его из запредельного первоначала, Единого (Божества).
Ра́дий-226 (англ. radium-226) — радиоактивный нуклид химического элемента радия с атомным номером 88 и массовым числом 226.
Visada- вкусный майонез к салату, Roshencki- детки любят шоколадные конфетки, Tidnatla- отстирает ваши пятна.
Раз в задании упоминается TextBox, то, полагаю, Вы работаете над Windows Forms проектом.
Добавляем textBox на форму и выставляем этому объекту свойство MultiLine (при нажатии на textBox нажимаем на стрелочку вправо и выставляем галочку напротив нужного свойства). Добавляем button, двойным нажатием переходим к описанию кода, который выполнится при нажатии на кнопку (метод Button#_Click)
.
<h3>Код и скриншот кода прикреплены.</h3>
Стоит заметить, что Вы должны изменить значение переменной filePath на Ваш путь к файлу.
Uses crt;
var a,b,c,s:integer;
begin
readln(a);
b:=a;
s:=0;
repeat
c:=b mod 10;
s:=s+c;
b:=b div 10;
until b=0;
if (s mod 2 =0) then writeln('четное') else writeln('нечетное');
end.
