Question

Информатика PASCAL.
Ввести символы с клавиатуры до нажатие enter и посчитать количество цифр в этой последовательности???

Answer 1

var n,s:integer;
begin
write('Введите число: ');
readln(n);
s:=0;
while n<>0 do
begin
n:=n div 10;
s:=s+1;
end;
//Число должно быть в пределах диапазона типа данных integer
writeln('Число состоит из ',s,' цифр');
end.

Надеюсь, я правильно понял задание...

Answer 2

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadString.Matches('\d').Count.Println
end.

Пример
Сегодня 10.02.2018г., время 23:32
12