задача 2 урок 18

задача 2 урок 18

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

Решение

program task_2_lesson18;
var s: string;
n, i: integer;
begin
  n := 0;
  readln(s);
  for i := 1 to length(s) do
    if (s[i] >= '5') and (s[i] <= '9') then
      n += 1;
  writeln(n);
  readln
end.