Информатика, опубликовано 2018-08-22 19:22:20 by Гость
Подсчитать количество цифр в строке. Задачу решить как минимум 2-мя способами.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на