Паскаль. за ! с клавиатуры вводится символьная строка. определите, сколько в ней цифр

Ответы

Ответ дал: annagutsman

Var s: string; k,i: integer; begin write('введите строку: '); readln(s); k: =0; for i: =1 to length(s) do if (s[i]> ='0')and(s[i]< ='9') then k: =k+1; writeln('k = ',k); end. пример: введите строку: 13 апреля 2016 г .k = 6

Спасибо

Ответ дал: kirsickwen

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin write(readlnstring('> ').where(c-> c in ['0'..'9']).count) end. тестовое решение: > зде3сь спр14ята1ны 5 ци926ф5ры чи35сла8979 "пи" 15

Спасибо

Ответ дал: Гость

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21.

ответ:

позавчера - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.

Ответ дал: Гость

если я не ошибся, то звучит так: у меня 2 брата. младшему 2 года, а старшему 8 лет. старший учится в 4 классе. может ли такое быть?