задача на паскале. Составить программу, которая подсчитывает сколько раз встретились цифры в тексте

1

Ответы и объяснения

2013-12-10T20:40:28+00:00
Program picaso; uses crt;
var s:string;
i,k:integer;
begin clrscr;
k:=0;

writeln('Даите текст');read(s);

for i:=1 to length(s) do  if (s[i]  = '0') or (s[i]  = '1') or (s[i]  = '2') or (s[i]  = '3') or (s[i]  = '4') or (s[i]  = '5') or (s[i]  = '6') or (s[i]  = '7') or (s[i]  = '8') or (s[i]  = '9') then inc(k); writeln('сколько раз встретились цифры в тексте: ',k);
readkey;
end.