Question

Определите значение переменной К после выполнения фрагмента программы k:=0;x:=1;while x:=20 dobeginif x mod 5 = 0then k:=k+1;;x:=x+1;end;writeln (k) ​

Answer 1

Ответ:

4

Объяснение:

x mod 5 = 0 означает деление без остатка, следовательно, по условию цикла (while x<=20) и шага увеличения его основной переменной (x:=x+1) на 1 за итерацию, можно просчитать, что результатом станет количество чисел в диапазоне 1 - 20, у которых 5 выступает полным делителем.

Сам результат считается просто: 20:5=4  

Answer 2

Давайте разберемся с фрагментом программы по шагам:

1. k := 0: Инициализируем переменную k значением 0.
2. x := 1: Инициализируем переменную x значением 1.
3. while x := 20 do: Этот оператор while создает бесконечный цикл (поскольку x всегда будет устанавливаться равным 20, и условие никогда не станет ложным).
4. Внутри цикла while у нас есть следующие действия:
   • if x mod 5 = 0 then k := k + 1: Это условие проверяет, делится ли x на 5 без остатка. Если да, то значение k увеличивается на 1.
   • x := x + 1: После проверки условия значение x увеличивается на 1.

Цикл будет выполняться бесконечно, так как x всегда будет устанавливаться равным 20, и условие while никогда не станет ложным. Поэтому ваша программа будет выполняться бесконечно.

Таким образом, программа никогда не завершится, и значение переменной k не будет иметь значения, так как выполнение программы никогда не дойдет до вывода writeln(k).