Для чего нужен "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.

сомхиев    1   23.04.2020 21:18    2