Определить количество цифр неотрицательного числа, используя функцию.

program kol_cifr3;

Uses Crt;

function kolcifr ( var n:integer):integer;

var k:integer;

begin

     k:=0;  if n=0 then k:=1;

     while n>0 do begin

           n:= n div 10;

           k:= k +1;

     end;

     kolcifr:= k;         {функции присваивается результат}

end;

 var n: integer;

begin

     writeln ( ′Vvedite Chislo′ );

     readln(n);

     write (′k=′, kolcifr(n));

end.

Синим цветом выделена функция.

Cнимок с экрана