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

Question

Информатика

Натоша

21 февраля, 16:27

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

+3

Ответы (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.