Question

Определи, что будет выведено на экран после выполнения фрагмента алгоритма:

k = 0

n = 1258

пока n > 0

k = k + 1

n = n div 10

вывод k​

Answer 1

Ответ

k=4

Pascal

var

 k, n:integer;

begin

 k:= 0;

 n:= 1258;

 while n > 0 do begin

   k:= k + 1;

   n:= n div 10;

 end;

 writeln('k=', k)

end.