Задача 3 Урок 18
Primary tabs
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
program u18z3; var a,code,i,n: integer; s: string; begin writeln('Vvedite stroku'); readln(s); n:=0; for i:=1 to length(s) do begin val(s[i], a, code); if (code=0) and (a>=5) then n:= n+1; end; write(n); readln(); end.
- Log in to post comments
- 234 reads