Var s,k: integer; Begin s := 0; for k := 3 to 8 do s := s + 6; writeln(s); End. Помогите пожалуйста, объясните поэтапно как это решить?
Var s,k: integer;
Begin
s := 0;
for k := 3 to 8 do
s := s + 6;
writeln(s);
End.
Помогите пожалуйста, объясните поэтапно как это решить?
Ответ(ы) на вопрос:
Var s,k: integer;
Begin
s := 0; // переменной s присваиваем начальное значение 0
for k := 3 to 8 do // цикл будет исполнен 6 раз (для k= 3, 4, 5, 6, 7, 8)
s := s + 6; // в теле цикла переменная S (изначально равная 0) каждый раз будет увеличиваться на 6. Т.е. в итоге будет 0+6+6+6+6+6+6=36
writeln(s); // выводим переменную s на экран - будет напечатано 36
End.
---------------------------------
В результате выполнения программы будет напечатано число 36
Не нашли ответ?
Похожие вопросы