Задание:
Вам дана строка S. Надо определить, сколько в ней цифр Формат входных данных Единственная строка входного файла содержит строку S, котораяможет состоять из букв английского алфавита и цифр.
Решение:
Program Task; Var S: String; i, nums: Integer; BeginWriteLn ('Введите строку'); ReadLn (S); If Length (S) > 100 ThenWriteLn ('Ошибка. Завершение работы программы'); For i: =1 To Length (S) DoIf (Ord (S[i]) >=48) And (Ord (S[i]) <= 57) Thennums: =nums+1; WriteLn ('Количество цифр в строке: ', nums); ReadLn; End.
Знаете другой ответ?