25 (10) = 11001 (2)
Первые два бита дают 4 возможных варианта
00, 01, 10, 11. Но последний - 11, уже занят.
Остается три варианта.
00 110 (2) = 6 (10)
01 110 (2) = 14 (10)
10 110 (2) = 22 (10)
Var a,r,b:real;
begin
b:=8;
writeln ('Введи a');
readln (b);
r:=2.7*b*b-a*1/5*(a*2);
writeln ('r = ',r);
end.
В программе задается массив, состоящий из 8 элементов.
Затем переменным term и m присваиваются начальные значения (1 и 7 соответственно).
В цикле
<span>нц для к от 2 до 8
если Dat[к] > m то
m:= Dat[k]
term := k
все
КЦ
элементы массива (начиная со второго) сравниваются с переменной m:
k=2
Dat[2]>m </span>⇒ 7>7 ⇒ нет
k=3
Dat[3]>m ⇒ 6>7 ⇒ нет
k=4
Dat[4]>m ⇒ 8>7 ⇒ да; m=Dat[4]=8; term=k=4
k=5
Dat[5]>m ⇒ 4>8 ⇒ нет
k=6
Dat[6]>m ⇒ 5>8 ⇒ нет
k=7
Dat[7]>m ⇒ 8>8 ⇒ нет
k=8
Dat[8]>m ⇒ 7>8 ⇒ нет
На экран будет выведено значение переменной term=4
Таким образом, в переменной m сохраняется значение максимального элемента массива, а в переменной term - номер первого максимального элемента.
1. Модель
2. Моделирования
3. Свойствами
4. Объект
Остается отношение. Если есть еще текст, до в последнем "отношение".
Var x:integer;
<span>begin </span>
<span>x:=10; </span>
<span>while x<100 do begin </span>
<span>if x mod 10=7 then write(x,' '); </span>
<span>x:=x+1; </span>
<span>end; </span>
<span>end.</span>