Дано натуральное число nn>9. Найти цифру десятков в нем и вывести её на экран. Решить линейным алгоритмом на языке Паскаль. Пожааалуйста. Не получаетс

1 Январь 0001



Дано натуральное число n(n>9). Найти цифру десятков в нем и вывести её на экран. Решить линейным алгоритмом на языке Паскаль. Пожааалуйста. Не получается самой

  • Program YoungFolks;
    uses crt;
    var
      n: integer;
    begin
      writeln(‘*** alphaues is thinking… ***’);
      writeln(‘***          OK             ***’);
      write(‘Введите число N ‘); readln(n);
      writeln(‘Цифра десятков число N равна ‘, (n div 10) mod 10);
    end.

     



    Пояснение:

    Вводим число N и дальше всю работу выполняет формула (n div 10) mod 10:

      - сначала вычисляется неполное частное от деления числа N на 10 (делим на 10 и берём только целую часть резульата – это тоже самое, что просто отбросить последнюю цифру). Например для числа 1256: 1256 div 10 = 125

      – потом находим отстаток от деления предыдущего результата опять на 10 (то есть берём последнюю цифру). Для нашего примера: 125 mod 10 = 5

    Цифра 5 и есть цифра десятков исходного числа.

     

     

     

     



     









Информатика

Комментарии закрыты.