2. Вычислите значение в циклических алгоритмах A) Var s,k: integer; Begin s := 0; for k: 3 to 8 do s := s + 9; writeln(s); End. 5) Var k, i: integer; Begin k := 4; For i := 1 to 3 do k := i + 2*k; Writeln(k); End. B) var n, s: integer; begin n := 30; s:= 25; while s < 425 do begin s:=s+40; n :=n+10 end; write(n);end.

Ответ: A) 54, Б) 60, B) 120

Решение:

А)

• Шаг 1: Инициализация: s = 0
• Шаг 2: Цикл for k := 3 to 8 do
  • k = 3: s = 0 + 9 = 9
  • k = 4: s = 9 + 9 = 18
  • k = 5: s = 18 + 9 = 27
  • k = 6: s = 27 + 9 = 36
  • k = 7: s = 36 + 9 = 45
  • k = 8: s = 45 + 9 = 54
• Шаг 3: Вывод: writeln(s) = 54

Б)

• Шаг 1: Инициализация: k = 4
• Шаг 2: Цикл for i := 1 to 3 do
  • i = 1: k = 1 + 2 * 4 = 1 + 8 = 9
  • i = 2: k = 2 + 2 * 9 = 2 + 18 = 20
  • i = 3: k = 3 + 2 * 20 = 3 + 40 = 43
• Шаг 3: Вывод: writeln(k) = 43

В)

• Шаг 1: Инициализация: n = 30, s = 25
• Шаг 2: Цикл while s < 425 do
  • s = 25: s < 425 (истина), s = 25 + 40 = 65, n = 30 + 10 = 40
  • s = 65: s < 425 (истина), s = 65 + 40 = 105, n = 40 + 10 = 50
  • s = 105: s < 425 (истина), s = 105 + 40 = 145, n = 50 + 10 = 60
  • s = 145: s < 425 (истина), s = 145 + 40 = 185, n = 60 + 10 = 70
  • s = 185: s < 425 (истина), s = 185 + 40 = 225, n = 70 + 10 = 80
  • s = 225: s < 425 (истина), s = 225 + 40 = 265, n = 80 + 10 = 90
  • s = 265: s < 425 (истина), s = 265 + 40 = 305, n = 90 + 10 = 100
  • s = 305: s < 425 (истина), s = 305 + 40 = 345, n = 100 + 10 = 110
  • s = 345: s < 425 (истина), s = 345 + 40 = 385, n = 110 + 10 = 120
  • s = 385: s < 425 (истина), s = 385 + 40 = 425, n = 120 + 10 = 130
  • s = 425: s < 425 (ложь), выход из цикла
• Шаг 3: Вывод: write(n) = 120

Ответ: A) 54, Б) 60, B) 120