Урок 18 Задача 4
Primary tabs
Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125.
var s, n: string; i, j, a: integer; begin write ('Введите строку: '); readln(s); i:= 0; j:= 0; while not (i > length(s)) do // цикл для обхода строки begin i:= i+1; if (s[i]>='0')and(s[i]<='9') then // если встретилось число begin for i:= i to length(s) do if not ((s[i]>='0')and(s[i]<='9')) then // если встретилось "не число" break // выходим из вложенного цикла else n:= n + s[i]; val(n, a); // преобразовываем строку в число if a > 125 then // если полученное число больше 125 begin j:= j + 1; // увеличиваем счетчик чисел, больших, чем 125 writeln (a); // выводим это число для наглядности end; n:= ''; end; end; writeln ('Количество чисел, больших, чем 125: ', j); readln(); end.
Вывод в консоли:
Введите строку: sfhfgh346sdfg3fdh546dfh76 346 546 Количество чисел, больших, чем 125: 2
- Log in to post comments
- 282 reads