Склавиатуры вводится строка состоящая из букв, знака пробела и циифр. определите количество цифр в этой строке
241
307
Ответы на вопрос:
var
s : string;
i, c : integer;
begin
readln (s);
c : = 0;
for i : = 1 to length (s) do
if (ord (s[i]) > 47) and (ord (s[i] < 58) then inc (c);
writeln (c);
end.
Популярно: Информатика
-
UltraTwItTeR22.09.2020 11:42
-
АлексейРИ29.09.2020 16:18
-
lokotkovasveta12.05.2023 02:41
-
ПеЧеНьКа81112.12.2021 17:16
-
маша275017.02.2023 14:19
-
revosasa7320.05.2023 08:05
-
SASA760950815.10.2020 05:06
-
lozhe4ka27.01.2022 19:00
-
sasharomanov0323.01.2023 15:31
-
Pudge322808.06.2023 21:15