Сколько раз выполнится цикл во фрагменте программы: a:=0.1; s:=0; i:=1; repeat i:=i+1; b:=1/i; s:=s+a; until b<a;

Ответ: 10

Пошаговое решение:

• Инициализация:
• a := 0.1
• s := 0
• i := 1
• Цикл repeat-until:
• Итерация 1:
• i := i + 1 (i становится 2)
• b := 1/i (b становится 0.5)
• s := s + a (s становится 0.1)
• Условие b < a (0.5 < 0.1) - ложь, цикл продолжается
• Итерация 2:
• i := i + 1 (i становится 3)
• b := 1/i (b становится 0.333...)
• s := s + a (s становится 0.2)
• Условие b < a (0.333... < 0.1) - ложь, цикл продолжается
• Итерация 3:
• i := i + 1 (i становится 4)
• b := 1/i (b становится 0.25)
• s := s + a (s становится 0.3)
• Условие b < a (0.25 < 0.1) - ложь, цикл продолжается
• Итерация 4:
• i := i + 1 (i становится 5)
• b := 1/i (b становится 0.2)
• s := s + a (s становится 0.4)
• Условие b < a (0.2 < 0.1) - ложь, цикл продолжается
• Итерация 5:
• i := i + 1 (i становится 6)
• b := 1/i (b становится 0.166...)
• s := s + a (s становится 0.5)
• Условие b < a (0.166... < 0.1) - ложь, цикл продолжается
• Итерация 6:
• i := i + 1 (i становится 7)
• b := 1/i (b становится 0.142...)
• s := s + a (s становится 0.6)
• Условие b < a (0.142... < 0.1) - ложь, цикл продолжается
• Итерация 7:
• i := i + 1 (i становится 8)
• b := 1/i (b становится 0.125)
• s := s + a (s становится 0.7)
• Условие b < a (0.125 < 0.1) - ложь, цикл продолжается
• Итерация 8:
• i := i + 1 (i становится 9)
• b := 1/i (b становится 0.111...)
• s := s + a (s становится 0.8)
• Условие b < a (0.111... < 0.1) - ложь, цикл продолжается
• Итерация 9:
• i := i + 1 (i становится 10)
• b := 1/i (b становится 0.1)
• s := s + a (s становится 0.9)
• Условие b < a (0.1 < 0.1) - ложь, цикл продолжается
• Итерация 10:
• i := i + 1 (i становится 11)
• b := 1/i (b становится 0.0909...)
• s := s + a (s становится 1.0)
• Условие b < a (0.0909... < 0.1) - истина, цикл завершается
• Следовательно, цикл выполнится 10 раз.

Ответ: 10