Вам дана строка S.Надо определить, сколько в ней цифр Формат входных данных Единственная строка входного файла содержит строку S, которая может состоять из букв английского алфавита и цифр. Гарантируется, что...
Вам дана строка S.Надо определить, сколько в ней цифр Формат входных данных Единственная строка входного файла содержит строку S, которая может состоять из букв английского алфавита и цифр. Гарантируется, что строка не пустая и ее длина не превосходит 100 Формат выходных данных Выведите ответ к задаче
Гость
Ответ(ы) на вопрос:
ГостьProgram Task;
Var S: String;
i, nums: Integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
If Length(S) > 100 Then
WriteLn('Ошибка. Завершение работы программы');
For i := 1 To Length(S) Do
If (Ord(S[i]) >= 48) And (Ord(S[i]) <= 57) Then
nums := nums + 1;
WriteLn('Количество цифр в строке: ', nums);
ReadLn;
End.
Гостьvar
s: string;
k, i: integer;
begin
read(s);
for i := 1 to length(s) do
if (s[i] in ['0'..'9']) then
k := K + 1;
writeln(k);
end.
Не нашли ответ?
Похожие вопросы