Составьте программу которая подсчитывает количество цифр в строке(коды цифр от 48 до 57)

0 голосов
28 просмотров

Составьте программу которая подсчитывает количество цифр в строке(коды цифр от 48 до 57)


Информатика (18 баллов) | 28 просмотров
Дан 1 ответ
0 голосов

Var s:string; i:longint;beginwriteln('введите, я скажу сколько у вас БУКВ(цыфры и пробел исключаются) '); readln(s); for i:=length(s) downto 1 do begin  if s[i]=' ' then delete(S,i,1);  if (s[i]>='1')and(s[i]<='9') then delete(s,i,1); end; writeln('результат чуть ниже. пока.'); writeln (length(s));end.<br>____________________________________________________________
прикрепил .pas, на всякий.
Не забудь нажать "СПАСИБО" и оцени мой ответ, если я помог тебе. Удачи!

(221 баллов)