Даю 27 балов!!!помогите пж до 13:30 по мск s:=0; i:=5; repeat s:=s+6 div i; i:=i-1;...

Question

Даю 27 балов!!!помогите пж до 13:30 по мск s:=0; i:=5; repeat s:=s+6 div i; i:=i-1; until i<1; write (s);

Answer 1

Ответ:

13

Объяснение:

s = 0       i = 5

Действия в цикле:

1) s = s + 6 div i

2) i = i - 1

Цикл продолжает работу пока ложно (нет) условие i < 1

Вывод s

s = 0       i = 5

Действия в цикле:

1) s = s + 6 div i = 0 + 6 div 5 = 0 + 1 = 1

2) i = i - 1 = 5 - 1 = 4

4 < 1     (нет)

s = 1       i = 4

Действия в цикле:

1) s = s + 6 div i = 1 + 6 div 4 = 1 + 1 = 2

2) i = i - 1 = 4 - 1 = 3

3 < 1     (нет)

s = 2       i = 3

Действия в цикле:

1) s = s + 6 div i = 2 + 6 div 3 = 2 + 2 = 4

2) i = i - 1 = 3 - 1 = 2

2 < 1     (нет)

s = 4       i = 2

Действия в цикле:

1) s = s + 6 div i = 4 + 6 div 2 = 4 + 3 = 7

2) i = i - 1 = 2 - 1 = 1

1 < 1     (нет)

s = 7       i = 1

Действия в цикле:

1) s = s + 6 div i = 7 + 6 div 1 = 7 + 6 = 13

2) i = i - 1 = 1 - 1 = 0

0 < 1     (да)

Цикл заканчивает работу

s = 13       i = 0

Comments

поэтому мне нужна помощь

---

там всего 7 заданий таких

---

Можешь проверять в программе ) Даже для телефона на андроиде есть Pascal N-IDE )

---

Больше 3 заданий в вопрос помещать нельзя )

---

я знаю

---

я сюда в комментарии отправлю

---

можно?

---

а как этим приложением пользоваться?

---

кстати я могу тебе писать в собщение

---

Просто ставишь из Play Маркет и там вводить программу на паскале.