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