Определите значение переменной К после выполнения фрагмента программы k:=0;
x:=1;
while x:=20 do
begin
if x mod 5 = 0
then 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