Question

с клавиатуры запрашивается натуральное число N. Если оно делится без остатка на 11 то для числа х=329*N вычисляется крайняя справа цифра иначе для числа х=207*N вычисляется произведение всех цифр Решить в паскале срочно

Answer 1

var

 n,x:integer;

begin

 write('n=');  readln(n);

 if n mod 11 = 0 then

   begin

     x:=329*n;

     writeln('n mod 11 = 0');

     write('x=',x,' ',x mod 10);

   end

     else

       begin

         x:=207*n;

         writeln('n mod 11 <> 0');

         write('x=',x,' ');

         n:=1;

         repeat

           n:=n*(x mod 10);

           x:=x div 10;

         until x=0;

         write(n);

       end;

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!

 

Answer 2

Для решения этой задачи в Паскале можно использовать следующий код:

program CalculateX;
var
  N, X, digit, product, remainder: Integer;

function CalculateLastDigit(N: Integer): Integer;
begin
  CalculateLastDigit := N mod 10;
end;

function CalculateProductOfDigits(N: Integer): Integer;
begin
  product := 1;
  while N <> 0 do
  begin
    digit := N mod 10;
    product := product * digit;
    N := N div 10;
  end;
  CalculateProductOfDigits := product;
end;

begin
  write('Enter a natural number N: ');
  readln(N);
  
  if N mod 11 = 0 then
  begin
    X := 329 * N;
    remainder := CalculateLastDigit(X);
    writeln('The last digit of X is: ', remainder);
  end
  else
  begin
    X := 207 * N;
    product := CalculateProductOfDigits(X);
    writeln('The product of all digits of X is: ', product);
  end;
end.

Этот код запрашивает у пользователя натуральное число N, затем проверяет, делится ли оно на 11. В зависимости от результата, вычисляется либо крайняя правая цифра числа X (если N делится на 11), либо произведение всех цифр числа X (если N не делится на 11). Полученный результат выводится на экран.