Ìîäóëü: Pascal. Îïåðàòîð öèêëà ñ óñëîâèåì - while

var n, count: integer;
begin
    read(n);
    count := 0;
    while n <> 0 do begin
        count += 1;
        n := n div 10;
    end;
    writeln('Number - ', n, ' contains ', count, ' digits');
end.

Âàø îòâåò Äëÿ ïðîâåðêè ðåøåíèÿ çàäà÷è íåîáõîäèìî çàðåãèñòðèðîâàòüñÿ èëè àâòîðèçîâàòüñÿ!

---