Подсчитать общее количество цифр и количество единиц - Pascal

Узнай цену своей работы

Формулировка задачи:

Вводится текст. Среди символов этого текста имеется несколько цифр. Подсчитать общее количество цифр и количество единиц в строке. Если в тексте нет единиц , выдать соответствующее сообщение

Решение задачи: «Подсчитать общее количество цифр и количество единиц»

textual
Листинг программы
type
digits = set of char;
var d:digits;
s: string;
i,k,n:integer;
begin
readln(s);
d:=['0'..'9'];
k:=0;
n:=0;
for i:=1 to length(s) do
    begin
    if s[i] in d then
        begin
        inc(n);
        if s[i] = '1' then
            inc(k);
        end;
    end;
writeln('Количество цифр: ', n);
if k = 0 then
    writeln('В тексте нет единиц ')
else
    writeln('количество единиц: ',k);
end.

Объяснение кода листинга программы

  1. Объявляется тип digits как множество символов (цифр).
  2. Объявляются переменные:
    • d – множество символов от '0' до '9'
    • s – строка для ввода данных
    • i, k, n – целочисленные переменные для использования в цикле
  3. Программа считывает строку s.
  4. Переменной k присваивается значение 0.
  5. Переменной n присваивается значение 0.
  6. Выполняется цикл по символам строки s:
    • Если текущий символ является цифрой, увеличивается значение переменной n на 1.
    • Если текущий символ равен '1', значение переменной k увеличивается на 1.
  7. Выводится текст Количество цифр: и значение переменной n.
  8. Проверяется значение переменной k:
    • Если равно 0, выводится текст В тексте нет единиц.
    • Иначе выводится текст Количество единиц: и значение переменной k.

Оцени полезность:

15   голосов , оценка 3.6 из 5
Похожие ответы