Урок 17. Задача №2. Решение.

Урок 17. Задача №2.

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

function myInc(var x : integer) : integer;
begin
  x += 1;
  result := x;
end;

var str : string;
  number, i : integer;
begin
  writeln('Enter arbitrary string: ');
  readln(str);

  for i := 1 to length(str) do
    if(str[i] >= '5') and (str[i] <= '9') then
      myInc(number);

  writeln('This string numbers >= 5: ', number);

  readln(); // Удержание консоль
end.// Завершение программы