1. Из 9-литрового перелить в 5-литровое (9-5=4, т.е. в 5-литровом 5 и в 9-литровом 4)2. Вылить из 5-литрового и перелить оставшиеся 4 литра из 9-литрового (в 5-литровом 4 и в 9-литровом 0)3. Наполнить 9-литровое и перелить из него в 5-литровое. Т.к. в 5-литровом уже есть4 литра, то в него войдет только 1 литр. В 9-литровом соответственно останется 8 литров.4. Вылить из 5-литрового всё и в него перелить из 9-литрового (8-5=3, т.е. в 5-литровом будет 5, а в 9-литровом - 3 литра)5. 5 литров вылить, а 3 принести )))
Здесь смешанный язык - алгоритмический. Разберем по строкам 1. алг - говорит что будет цикл (в Паскале for) 2. нач - слишком очевидно, начало 3. цел i,n - значения переменных i и n целые 4. n:=0 - обнуляем n, мало ли в памяти есть какое-то значение для него 5. нц для i от 1 до 13 - начало цикла, который меняется на промежутке [1;13] 6. n:=(n+i)+3 - действие внутри цикла, в данном случае меняем значение n 7. кц 8. вывод n - выводим на экран последнее значение n 9. кон
Как это выглядит на Паскаль: Var i, n: integer; Begin n := 0; for i:= 1 to 13 do n:=n+i+3; write('n = ',n); end.
Эта программа выведет на экран 130 можно посчитать вручную i=1, n = n+i+3 = 0+1+3= 4 i=2, n = n+i+3 = 4+2+3= 9 и т.д. до i = 13.
Разберем по строкам
1. алг - говорит что будет цикл (в Паскале for)
2. нач - слишком очевидно, начало
3. цел i,n - значения переменных i и n целые
4. n:=0 - обнуляем n, мало ли в памяти есть какое-то значение для него
5. нц для i от 1 до 13 - начало цикла, который меняется на промежутке [1;13]
6. n:=(n+i)+3 - действие внутри цикла, в данном случае меняем значение n
7. кц
8. вывод n - выводим на экран последнее значение n
9. кон
Как это выглядит на Паскаль:
Var i, n: integer;
Begin
n := 0;
for i:= 1 to 13 do
n:=n+i+3;
write('n = ',n);
end.
Эта программа выведет на экран 130
можно посчитать вручную
i=1, n = n+i+3 = 0+1+3= 4
i=2, n = n+i+3 = 4+2+3= 9
и т.д. до i = 13.