var m, n: longint; k: integer; begin writeln('Введите число:'); readln(n); m:=n; k:=0; while m <>0 do begin inc(k); m:= m div 10; end; writeln('B числе ',k, ' цифр'); readln; end.
Клод Шеннон, был такой Американский инженер и математик, его работы являются синтезом математических идей с конкретным анализом чрезвычайно сложных проблем их технической реализации Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика». В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации (в статье «Математическая теория связи»).
Программа посимвольно читает стандартный ввод (клавиатура) и выбирает только цифры - все остальное игнорируется. Как результат, получает последовательность из натуральных чисел. Для завершения ввода нужно ввести "0". Любые символы после 0 считаны не будут. \\\\\\\\\\\\\\\\\\\ using System; namespace sequen { class Program { static string seq() { string res = ""; char symb; while ((symb = (char)Console.Read()) != ' ' && symb != '\n') { if (symb >= '0' && symb <= '9') res += symb.ToString(); } if (res == "") return seq(); //Если ни один символ не подошел if (res != "0") return seq() + res + " "; // Если число считано else return ""; // Если конец } static void Main(string[] args) { Console.Write("Введите последовательность: "); Console.WriteLine("Результат: {0}", seq()); Console.ReadKey(); } } }
k: integer;
begin
writeln('Введите число:');
readln(n);
m:=n;
k:=0;
while m <>0 do
begin
inc(k);
m:= m div 10;
end;
writeln('B числе ',k, ' цифр');
readln;
end.