Паскаль. Благодарю за помощь! С клавиатуры вводится символьная строчка. Обусловьте, сколько

Var s:string; k,i:integer;
begin
write('Введите строчку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]gt;='0')and(s[i]lt;='9') then k:=k+1;
writeln('k = ',k);
end.

Пример:
Введите строку:
13 апреля 2016 г .
k = 6

Санек Канафьев · Answer 2 · 2019-08-31 10:17:42+3:00

Санек Канафьев 2019-08-31 10:17:42

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Write(ReadlnString('gt;').Where(c-gt;c in ['0'..'9']).Count)
end.

Тестовое решение:
gt; Зде3сь спр14ята1ны 5 ци926ф5ры чи35сла8979 "пи"
15

Пранова Светлана 2019-08-31 10:21:29

//PascalABC.NET 3.1 сборка 1200uses System.Text.RegularExpressions;begin var s := ReadlnString('Введите строчку - '); var r := new Regex('[0-9]'); writeln(r.Matches(s).Count);end.

Маргарита Небоян 2019-08-31 10:28:56

Moжно было просто var r:=Regex.Matches(s,'\d').Count;

Ира Баштовенко 2019-08-31 10:33:18

да, к раскаянию изредка работаю с регекспами, чтобы держать в голове(

О проекте

Паскаль. Благодарю за помощь! С клавиатуры вводится символьная строчка. Обусловьте, сколько

Добро пожаловать!