16*8 = 128 вариантов местонахождения книги. Из этого количества вариантов необходимо выбрать один. Следовательно, N = 128, а I = 7, т.к. 128 = 27.
<span>program</span> xjkhjh;
<span>uses</span> crt;<span>
Var</span> T<span>:</span><span>string</span>;
i<span>,</span> summ<span>:</span><span>byte</span>;
<span>Begin</span>
<span>Writeln</span><span>(</span><span>'Введи текст: '</span><span>)</span>;
<span>Readln</span><span>(</span>T<span>)</span>;
summ<span>:=</span><span>0</span>;
<span>For</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>T<span>)</span><span>do</span>
<span>If</span> T<span>[</span>i<span>]</span><span>in</span><span>[</span><span>'y'</span><span>,</span><span>'x'</span><span>]</span><span>then</span> inc<span>(</span>summ<span>)</span>;
<span>Writeln</span><span>(</span><span>'Сумма = '</span><span>,</span>summ<span>)</span>;
<span>End</span>.
В отличие от цикла while, условие вычисляется после
очередной итерации цикла, и если оно истинно, то происходит выход из цикла.
Таким образом, операторы, образующие тело цикла оператора
repeat, выполняются по крайней мере один раз.
Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла.
1)Цикл выполнится 1 раз:
i:=i-1=-1
s=-1/1=-1
-1<1 условие выполняется, цикл прерывается.
2)цикл выполнится 3 раза:
1. i:=i+1=1; 1>2 условие не выполняется, цикл продолжается.
2. i:=i+1=2; 2>2 условие не выполняется, цикл продолжается.
3. i:=i+1=3 3>2 условие выполняется, цикл прерывается.
Материнская плата, центральный процессор, оперативная память, блок питания, жесткий диск, видеокарта, CD/DVD привод.
Знать бы, какой ввод данных
пусть он будет с клавиатуры, массив А из оценок N учеников
for i:=1 to N do begin
sum:=sum+A[i]; {это для среднего балла}
if (A[i]=4) or (A[i]=5) then
k1:=k1+1; {счетчик отличников-хорошистов}
if A[i]=2 then
k2:=k2+1; {счетчик двоечников}
end;
writeln('Количество учеников, написавших на 4 и 5: ', k1);
if k2>0 then
writeln('Двоечники есть')
else writeln('Двоечников нет');
writeln('Средний балл: ', sum/N:3:2);
end.