Вам дана строка S. Надо определить…

Question

Вам дана строка S. Надо определить, сколько в ней цифр Формат входных данных Единственная строка входного файла содержит строку S, котораяможет состоять из букв английского алфавита и цифр.

Answer 1

43

irinka8-0

01 сентября 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: