Дана последовательность прлизвольных символов, подсчитать количество цифр в этой последовательности.
Ответы
Ответ дал:
0
var
S: string;
CountNumbers, i: byte;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
if S[i] in ['0'..'9'] then CountNumbers := CountNumbers + 1;
writeln('Количество цифр в строке = ', CountNumbers);
end.
S: string;
CountNumbers, i: byte;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
if S[i] in ['0'..'9'] then CountNumbers := CountNumbers + 1;
writeln('Количество цифр в строке = ', CountNumbers);
end.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад