Kenin
7 год назад
Var s,k: integer;
Begin
s : = 0;
for k : = 3 to 8 do
s : = s + 6;
writeln(s);
End.
Помогите пожалуйста, объясните поэтапно как это решить?
ОТВЕТЫ
Васильковский
Jul 16, 2019
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
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
78
Смежные вопросы:
