Задача 2 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
program U17Z2; var s: string; i,code,v,kol: integer; begin writeln('vvedite stroku'); readln(s); kol:=0; for i:=1 to length(s) do begin val(s[i],v,code); if (v>=5) then kol:=kol+1; end; writeln('kolichestvo cifr >=5 : ',kol); readln(); end.
- Log in to post comments
- 672 reads