Задача 2 урок 17
Primary tabs
Задача 2 урок 17
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
var I, h, n, Code : Integer; S: string; begin n:=0; //счетчик нужных значений writeln('Vvedite stroku'); readln(S); for h:=1 to length(S) do begin Val(S[h], I, Code); if (Code=0) AND (I >=5) then inc(n); end; writeln('V stroke ',n,' cisel >= 5'); readln(); end.
- Log in to post comments
- 1224 reads