Ответы на вопрос:
Var s: string; n: byte; begin readln(s); foreach i: char in s do if (char.isdigit(i)) then n += 1; writeln(n); end. var s: string; n: byte; begin readln(s); for i: byte : = 1 to length(s) do if (s[i] in ['0'..'9']) then n += 1; writeln(n); end.
Популярно: Информатика
-
адинаева16.06.2020 11:59
-
erro1411.08.2021 10:08
-
liza132920.03.2021 12:22
-
dradya17.09.2020 15:30
-
9fhneh16.09.2020 06:00
-
Антон200411107.01.2023 07:23
-
Акируя15.07.2022 10:47
-
Виктория678904510.11.2020 15:36
-
sulfaandrey11.10.2022 15:21
-
Isa2222223.07.2020 19:37