Паскаль. Основы программирования


Задание 1 - часть 2


n := 4538 div 10 = 453.

Проверка условия: 453

 10 - условие выполняется, значит цикл выполняется второй раз: i := i*10 = 10*10 = 100; n := 453 div 10 = 45.

Проверка условия: 45

 10 - истина, значит цикл выполняется третий раз:

i := i*10 = 100*10 = 1000, n := 45 div = 4.

Проверка условия: 4>=10 - ложь, значит операторы цикла не выполняются. Цикл заканчивается.

Конечные значения переменных: n = 4 - первая цифра числа, i = 1000. Теперь остается выполнить сам процесс перестановки цифр и выдать результат на экран.

Программа

Program

Problem2; { Перест. первой и последней цифр числа }

    uses WinCrt;

    var

       n, n1, p, a, i : integer;

   begin

      write('Введите натуральное число n '); readln(n);

      a := n;  i := 1;

      p := n mod

10; {последняя цифра введенного числа}

      while n >= 10 do

          begin

             i := i*10;

             n := n div 10;

          end;

      n1 := a - n*i - p + n + p*i;

      writeln('Число после перестановки цифр ', n1);

   end.




Начало  Назад  Вперед



Книжный магазин