Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Все программы находятся в одном файле. Поэтому после проверки первой программы сначала закомментируй её, а потом раскомментируй другую и т. д.
Решение во вложении.
1б
2б
3в
4б
5б
6б
7г
8в
9а
10а
задача
1. 2^i=N, N=32, i=5
2. 2^i=128, i=7
3. не видно значения((
4. 2^i=32, i=5, в слове комбинаторика 13 символов, 5*13=65бит информации
Двоеточие - это часть команды (оператора), который называется оператор присваивания. В данном контексте всегда используется два символа ":=". Команда присваивания y:=y-x означает, что берутся текущие значения переменных x и y, находится их разность, после чего результат записывается (говорят - "присваивается") переменной y. Например, если значение y было задано y:=20; а x:=1; то новое значение переменной y будет равно 20-1=19.
В команде x:=x*2 все аналогично. Берется текущее (установленное ранее) значение переменной x, умножается на 2, а результат этого умножения становится новым значением переменой x. Старое значение при этом безвозвратно теряется.