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

4

Объяснение:

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

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