Var s,k integer; //обозначили переменные.Тип integer говорит что это целые числа.
Begin
s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.
for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем s:=(s+3)*k.
Пишу ход выполения программы:
s:=(0+3)*3=9 // тут значение s стало ровно 9.
s:=(9+3)*3=12*3=36 // тут значение s стало ровно 36. И так далее.
s:=(36+3)*3=39*3=39*3=117
s:=(117+3)*3=120*3=360
s:=(360+3)*3=363*3=1089
write(s); // выводим значение рассчитанной s.
End. // конец программы.
Винчестер - сленговое название устройства для записи и считывания на жёстких дисках
3 л: 8 л:
1. 3 0 (налить 3л)
2. 3 3 (перелить из 3л в 8л и налить в 3л.)
3. 0 6 (перелить из 3л в 8л)
4. 3 6 (налить 3л)
5. 1 8 (перелить из 3л в 8л)
6. 1 0 (вылить 8 л)
7. 0 1 (перелить из 3л в 8л)
8. 3 1 (налить 3л)
9. 0 4 (перелить из 3л в 8л)
10. 3 4 (налить 3л)
11. 0 7 (перелить из 3л в 8л)
+2x-9=0 - Неверный формат уравнения!