Составьте программу Pascal определяющую количество цифр во введённой строке s

Question

Информатика

Леонтьюшка

13 июня, 01:34

Составьте программу Pascal определяющую количество цифр во введённой строке s

+1

Ответы (1)

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

Виталия · Answer 1

Program gt;

l, k, i:integer;

s:string;

begin

readln (s) ;

l:=length (s) ;

k:=0;

for i:=1 to l do

if ((ord (s[i]) >47) and (ord (s[i]) <58)) then k:=k+1;

writeln (k) ;

end.