Выяснить, сколько раз входит в состав натурального числа цифра 3 - Turbo Pascal

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

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

Цикл с параметром Выяснить, сколько раз входит в состав натурального числа цифра 3

Решение задачи: «Выяснить, сколько раз входит в состав натурального числа цифра 3»

textual
Листинг программы
uses
  SysUtils;
var
s, str: string;
i,n: Integer;
begin
Writeln('Enter number');
Readln(s);
n:=0;
for i := 1 to Length(S) do
begin
    str:=s[i];
    if str=#51 then    // #51 код цифры 3 в ASCII
    n:=n+1;
    end;
Writeln('n=',n);
Readln;
end.

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

  1. В начале кода используется библиотека SysUtils.
  2. Затем объявляются переменные s и str типа string, а также переменная i типа Integer.
  3. Далее идет приглашение пользователю ввести число.
  4. Переменная n инициализируется значением 0.
  5. Затем начинается цикл for, который выполняется от 1 до Length(s), где Length(s) - длина строки s.
  6. Внутри цикла каждая цифра из строки s проверяется на равенство #51, что соответствует коду цифры 3 в ASCII.
  7. Если цифра равна #51, то переменная n увеличивается на 1.
  8. После завершения цикла выводится значение переменной n.
  9. Код завершается вызовом Readln для чтения следующего ввода пользователя.

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

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