Строковый тип

Практическая  работа №8 
 

1.Тема: Строковый тип. 

2.Оснащение: Система программирования Pascal ABC.NET. 

3.Задание  к работе. 

3.1 Вариант 13. Дана строка. Подсчитать количество содержащихся в ней цифр.  

4.1 Выполнение: 

Программный код: 

uses crt;

const D=['0'..'9'];

var st:string;

i,k:integer;

begin

readln(st);

k:=0;

for i:=1 to length(st) do if st[i] in D then inc(k);

write(k);

readkey;

end. 

Выполнение: