РЕШИТЕ В ПАСКАЛЕ: "Циклический алгоритм " В данной строке определить количество цифр.
РЕШИТЕ В ПАСКАЛЕ: "Циклический алгоритм "
В данной строке определить количество цифр.
Гость
Ответ(ы) на вопрос:
Гостьvar
str:string;
count,i:integer;
begin
count:=0;
readln(str);
for i:=1 to Length(str) do
if (str[i]>'0') AND (str[i]<'9') then
count:=count+1;
writeln(count);
end.
Не нашли ответ?
Похожие вопросы