Дан текст. определить количество цифр в нём

Question

Информатика

Арсен

14 сентября, 06:03

Дан текст. определить количество цифр в нём

+3

Ответы (1)

Знаете ответ на вопрос?

Луконя · Answer 1

var

i, count:integer;

str:string;

begin

readln (str) ;

for i:=1 to length (str) do begin

if (ord (str[i]) > = 48) and (ord (str[i]) < = 57) then inc (count) ;

end;

writeln ('Количество цифр = ', count) ;

end.