надо срочно Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.расписать в
надо срочно <span><em>Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.</em> <u>расписать все четко</u></span>
Строками: var s:string; begin WriteLn('vvedi chislo:'); ReadLn(s); WriteLn('chislo cifr=',length(s)); ReadLn; end; Не строками: var N,k:longint; begin write('N=');readln(N); k:=0; while N>0 do begin N:=N div 10; k:=k+1; end; write('k=',k); readln end.