Question

Чему будет равно К после выполнения программы? Var I,k,x:interger; Begin X:=1000; K:=0; While(x>0) do begin K:=k+x mod 10; X:=x-1; End; Writeln(k); End.

Answer 1

4500 -----------------------------------------------