Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer; Begin s:= 0; for k:= 4 to 9 do s:= s + 12; writeln(s); End.
" Var s,k: integer; " --- сначала объявляются две переменные типа integer: s и k.
" Begin s:= 0; " --- затем переменной s присваивается значение 0.
" for k:= 4 to 9 do s:= s + 12; " --- эта строчка представляет из себя цикл. Сначала переменной k задаётся значение 4. Затем при каждом выполнении тела цикла к этому значению прибавляется единица. Это происходит до тех пор, пока значение переменной не достигнет 9. То есть тело цикла будет выполнено 9 - 4 = 5 раз.
Теперь взглянем на тело цикла: s:= s + 12. Эта строчка при каждом выполнении прибавляет к предыдущему значению переменной s 12. Так как она будет выполнена 5 раз, а начальное значение переменной s равно 0, то после выполения цикла значение переменной s будет равно 0 + 12 + 12 + 12 + 12 + 12 = 12 · 5 = 72.
" writeln(s); End. " --- выводит значение s и завершает исполнение программы.
72
Объяснение:
" Var s,k: integer; " --- сначала объявляются две переменные типа integer: s и k.
" Begin s:= 0; " --- затем переменной s присваивается значение 0.
" for k:= 4 to 9 do s:= s + 12; " --- эта строчка представляет из себя цикл. Сначала переменной k задаётся значение 4. Затем при каждом выполнении тела цикла к этому значению прибавляется единица. Это происходит до тех пор, пока значение переменной не достигнет 9. То есть тело цикла будет выполнено 9 - 4 = 5 раз.
Теперь взглянем на тело цикла: s:= s + 12. Эта строчка при каждом выполнении прибавляет к предыдущему значению переменной s 12. Так как она будет выполнена 5 раз, а начальное значение переменной s равно 0, то после выполения цикла значение переменной s будет равно 0 + 12 + 12 + 12 + 12 + 12 = 12 · 5 = 72.
" writeln(s); End. " --- выводит значение s и завершает исполнение программы.