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.

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