Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
1. → 2 [сдвинуться вправо, перейти на строку 2]
2. → 3 [сдвинуться вправо, перейти на строку 3] — в вопросе опечатка?
3. → 4 [сдвинуться вправо, перейти на строку 4]
4. ? 5;2 [если в текущей ячейке нет метки, перейти на строку 5, иначе вернуться на 2]
5. ← 6 [сдвинуться влево, перейти на строку 6]
6. V 7 [поставить метку, перейти на строку 7]
7. ! [закончить работу]
Программа делает следующее: переходит на метку вправо, шагами по две ячейки идёт вправо, пока не дойдёт до пустой ячейки, возвращается на ячейку влево, ставит там метку и заканчивает работу.
Пусть метки расположены в ячейках 0 - (n-1), каретка под ячейкой 0.
Тогда сначала каретка окажется подячейкой 1, сделает [n/2] шагов по 2 вправо ([x] — целая часть x), оказавшись под ячейкой 1 + 2 * [n/2], вернётся на ячейку влево (ячейка 2 * [n/2]) и поставит там метку.
Если n было четным, будут заполнены ячейки от 0 до n, каретка под ячейкой n
Если n было нечетным, будут заполнены ячейки от 0 до n - 1, каретка под ячейкой n - 1
2048 символів так как в 1байте 8 бит а в 1 килобайте 1024 байт
1. 4/32=8/64 > 5/64. Так что выгоднее в первой.
2. log2 32 = 5. Ответ - 5 бит
3. Если я правильно понял, то самый простой пример - человек. Составные части - части тела. Системный эффект - всё работает только вместе, по частям рука/нога не работает.