Урок 18 Задача 3
Primary tabs
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
var a, code, i, j: integer; s: string; begin write('Введите строку: '); readln(s); j:= 0; for i:=1 to length(s) do // обходим строку по символам begin val(s[i], a, code); if (code = 0) and (a >= 5) then // если встретилась цифра и она больше либо равна 5 j:= j+1; // увеличиваем счетчик на 1 end; write ('Ответ: ', j); readln(); end.
Вывод в консоли:
Введите строку: dgvh76dfgw5df1sdf4 Ответ: 3
- Log in to post comments
- 273 reads