Задача 4 Урок 18
Primary tabs
Задача 4 Урок 181. Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
var n, s: string; i, j: integer; intChislo, Code : Integer; q:integer; begin writeln('enter'); //readln(s); s:='123fdgF34sdf45g'; q:=0; for i := 1 to length(s) do if (s[i] >= '0') and (s[i] <= '9') then begin n:= n+s[i]; val(s[i],intChislo, Code); q:=q+intChislo; if not ((s[i + 1] >= '0') and (s[i + 1] <= '9')) and (n <> '') then begin if q>=5 then begin writeln('> 5 here ',n,' ', q); q:=0; n:=''; end; end; end; readln(); end.
Вывод консоли:
enter > 5 here 123 6 > 5 here 34 7 > 5 here 45 9
- Log in to post comments
- 325 reads