Урок 18 Задача 03

Урок 18 Задача 3

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

Решение:

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

Консоль:

Vvedite stroku
sdf6as2kl5kl6l82l10lasd
4