Question

Помогите, пожалуйста написать программу на паскаль Дано натуральное число. Вычислить количество цифр, являющихся степенями тройки (1,3,9).

Answer 1

Var n, digit, ans : integer;
begin
    read(n);
    ans := 0;
    while (n > 0) do begin
        digit := n mod 10;
        if ((digit = 1) or (digit = 3) or (digit = 9)) then
            ans := ans + 1;
        n := n div 10;
    end;
    writeln(ans);
end.

Answer 2

Программа на языке Паскаль:

program CountPowerOfThreeDigits;

var
  number, count: integer;

begin
  write('Введите натуральное число: ');
  readln(number);
  
  count := 0;
  
  while number > 0 do
  begin
    if (number mod 10 = 1) or (number mod 10 = 3) or (number mod 10 = 9) then
      count := count + 1;
      
    number := number div 10;
  end;
  
  writeln('Количество цифр, являющихся степенями тройки: ', count);
end.

Эта программа сначала запрашивает у пользователя натуральное число, затем с помощью цикла while проходит по всем его цифрам, проверяя каждую на то, является ли она степенью тройки (1, 3 или 9). Если цифра удовлетворяет условию, то переменная count увеличивается на 1. В конце программа выводит количество цифр, являющихся степенями тройки.