Question

Что выведут на экран следующие фрагменты программы? Приведите этапы решения пожалуйста: Program p3B; var i,s:integer; begin i:=15; s:=0; repeat s:=s+ i mod 10 ; i:=i+1; until i<20; writeln (s); end.

Answer 1

Ответ:

4

Объяснение:

Цикл выполняется 4 раз и всегда (i mod 10) = 1 и s возрастает от 0 до 4......

Answer 2

Данный фрагмент программы на языке Pascal выполняет следующие действия:

1. Объявляет переменные i и s как целочисленные.
2. Инициализирует переменную i значением 15 и переменную s значением 0.
3. Запускает цикл repeat...until, который будет выполняться до тех пор, пока значение переменной i меньше 20.
4. Внутри цикла выполняется следующее:
   • К s добавляется остаток от деления i на 10 (i mod 10).
   • Значение i увеличивается на 1 (i := i + 1).

Теперь давайте пройдем через каждую итерацию цикла:

1. Итерация 1:

   • s = 0 + (15 % 10) = 0 + 5 = 5
   • i = 15 + 1 = 16

2. Итерация 2:

   • s = 5 + (16 % 10) = 5 + 6 = 11
   • i = 16 + 1 = 17

3. Итерация 3:

   • s = 11 + (17 % 10) = 11 + 7 = 18
   • i = 17 + 1 = 18

4. Итерация 4:

   • s = 18 + (18 % 10) = 18 + 8 = 26
   • i = 18 + 1 = 19

5. Итерация 5:

   • s = 26 + (19 % 10) = 26 + 9 = 35
   • i = 19 + 1 = 20

После выполнения цикла repeat...until значение i становится равным 20, и цикл завершается.

Наконец, программа выводит значение переменной s на экран с помощью writeln. Таким образом, на экран будет выведено значение s, которое равно 35.