Question

Срочно!

Для чего нужен "N" в этой программе?:

Var

A,N:integer;

Begin

WriteLn('Введите натуральное число');

ReadLn(A);

N:=0;

While A>0 do

Begin

A:= A div 10;

N:=N+1;

End;

WriteLn(N);

End.

Answer 1

Ответ:

Объяснение:

он контролирует твой цикл. при каждом сработанном цикле, к n будет прибавляться 1. В итоге число, которое выведет на экране, покажет сколько раз выполнялся цикл.