Var s,k: integer; Begin s := 3; for k:= 2 to 6 do S:= 5 + 5; writeln(s); End. Помоги...

Question

Var s,k: integer; Begin s := 3; for k:= 2 to 6 do S:= 5 + 5; writeln(s); End. Помоги мне пожалуйста

Comments

Нужно переделать?

---

или решить по S ?

---

Решить

---

S:= 5 + 5; - тут не ошибка?

---

S:=s+5;

---

алгоритм в любом случае выведет S=5+5, т е 10. Так как S не накапливается.

---

с решением?

---

Ну нужно вообще-то ответ

---

Только

Answer 1

Ответ:

S= 28

Объяснение:

Цикл идёт от 2 до 6. Следовательно:

1. 2: S=3+5=8
2. 3: S=8+5=13
3. 4: S=13+5=18
4. 5: S=18+5=23
5. 6: S=23+5=28

(6 включительно в этом цикле)

Comments

X:=537;
S:=0;
while x>0 do begin
S:=s+x mod 10;
x:=x div 10;
end;
writeln(s);
Помоги срочно надо

---

Только ответ

---

Без решения

---

Получится 14?

---

Ещё нужно? Не увидел этого

---

S:=s+x mod 10; - в этой строчке скобочки есть? mod 10 - это к x или (s+x)