Question

Составить блок-схему нахождения количества цифр в натуральном числе.

Answer 1

// Блок схема и листинг программы в приложениях.

PROGRAM SUM_ZNAK;
var
n, i, sum: integer;

begin
Read(n);
sum:=0;
while (n > 0) do begin
sum := sum+1;
n := n div 10;
end;
Writeln(sum);
end.