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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы