1. Var
y:real;
i:integer:
………………………
y:=1;
For i:=2 to 4 do y:=y+i;
2. Var
y:real;
k:integer:
………………………
y:=2;
For k:=4 downto 1 do y:=y*k;
3. Var
y:real;
n:integer:
………………………
y:=5;
For n:=1 downto 4 do y:=y+n;
4. Var
y:real;
i:integer:
………………………
y:=1;
For i:=1 to 3 do
Begin
y:=y+1;
y:=y+i;
end;
5. Var
y:real;
i:integer:
………………………
y:=0;
For i:=4 to 6 do y:=y+i;
y:=y/10;
6. Var
s:real;
n:integer:
………………………

s:=0;
For n:=4 downto 3 do
Begin
s:=s+n;
s:=s*10;
end;

1) 5

2) 9

3) 9

4) 10

алгоритм простой, представим число n-1 (т.к. ноль не учитывается) в качестве двойчной последовательности, для числа n=32 это будет 11111 дальнейший алгоритм прост, рассмотрим его на примере, задумано число 26:

1) проверяем правый регист (*0000 = 16), задаем вопрос "задуманое число больше 16?", ответ "да", значит первы регистр 1

2) проверяем следующий (1*000=24), задаем вопрос "задуманое число больше 24?", ответ "да", значит регистр 1

3) проверяем следующий (11*00=28), задаем вопрос "задуманое число больше 28?", ответ "нет", значит регистр 0

4)проверяем следующий (110*0=26), задаем вопрос "задуманое число больше 26?", ответ "нет", значит регистр 0

5) проверяем следующий (1100*=25), задаем вопрос "задуманое число больше 25?", ответ "да", значит регистр 1

итого получаем задуманное число в двоичной форме 11001 = 25, но т.к. мы не учитываем 0, то к этому числу надо прибавить 1, итого задусманное число 26

1) 5

2) 9

3) 9

4) 10

алгоритм простой, представим число n-1 (т.к. ноль не учитывается) в качестве двойчной последовательности, для числа n=32 это будет 11111 дальнейший алгоритм прост, рассмотрим его на примере, задумано число 26:

1) проверяем правый регист (*0000 = 16), задаем вопрос "задуманое число больше 16?", ответ "да", значит первы регистр 1

2) проверяем следующий (1*000=24), задаем вопрос "задуманое число больше 24?", ответ "да", значит регистр 1

3) проверяем следующий (11*00=28), задаем вопрос "задуманое число больше 28?", ответ "нет", значит регистр 0

4)проверяем следующий (110*0=26), задаем вопрос "задуманое число больше 26?", ответ "нет", значит регистр 0

 5) проверяем следующий (1100*=25), задаем вопрос "задуманое число больше 25?", ответ "да", значит регистр 1

итого получаем задуманное число в двоичной форме 11001 = 25, но т.к. мы не учитываем 0, то к этому числу надо прибавить 1, итого задусманное число 26