Ввести строку, в которую могут входить только цифры и буквы. Подсчитать количество и вывести на экран цифры - Pascal
Формулировка задачи:
Ввести строку, в которую могут входить только цифры и буквы. Подсчитать ко-
личество и вывести на экран цифры.
Решение задачи: «Ввести строку, в которую могут входить только цифры и буквы. Подсчитать количество и вывести на экран цифры»
textual
Листинг программы
Var s:string;
i,k:byte;
Begin
write('Введите строку из цифр и букв: ');readln(s);
For i:=1 to Length(s) do
if s[i] in ['0'..'9'] then
Begin
inc(k);
write(s[i]:2);
End;
writeln;
writeln('Цифр в строке = ',k);
readln;
End.
Объяснение кода листинга программы
- Объявлены три переменные: s (строка), i (номер симвома в строке), k (количество цифр).
- Выводится запрос на ввод строки.
- В цикле происходит проверка каждого символа строки.
- Если символ является цифрой, то увеличивается значение переменной k и выводится на экран два символа (один символ — один байт).
- После цикла выводится на экран количество цифр в строке.
- Запрос на ввод с клавиатуры для выхода из программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д