Задача 2 Урок 18
Primary tabs
Пользователь вводит строку произвольных символов,
посчитайте количество цифр в ней, численное значение
которых больше либо равно 5.
var key, toInt, countOfInt, errorCode: integer; fromString: string; begin countOfInt := 0; writeln('Введите строку'); readln(fromString); for key := 1 to length(fromString) do begin val(fromString[key], toInt, errorCode); if (errorCode = 0) and (toInt >= 5) then inc(countOfInt); end; writeln(countOfInt); readln(); end.
КОНСОЛЬ
Введите строку sv1erfv3v459 2
- Log in to post comments
- 714 reads