Как делать task ('w5') в pascal с цикла while

1

Объяснение:

Для начала посчитаем выражения в первой скобке:

512^78 = 2,1040543606193494028963959531521e+211‬

512^60 = 3,5991310356345571062484308061488e+162‬

Вычитаем: 512^78-512^60 = 2.104054e+211

Теперь во второй:

512^5 = 35 184 372 088 832‬ (35 триллионов 184 миллиарда 372 миллиона 88 тысяч 832)

64^5 = 1 073 741 824‬ (1 миллиард 73 миллиона 741 тысяча 824)

Вычитаем: 35 184 372 088 832 - 1 073 741 824‬ = 35 183 298 347 008‬

Считаем общее выражение:

(512^78-512^60)*(512^5+64^5) = 7.403209e+224

Получается, одна цифра 7.

Надеюсь

A[i] := i + 1;

   PrintLn(a);

   Println();

   for i := 1 to 10 do

   begin

       A[i] := A[i - 1];

       PrintLn(a);

   end;

   Println();

   Println(2);

   for i := 0 to 10 do

       A[i] := i + 1;

   PrintLn(a);

   Println();

   for i := 10 downto 0 do

   begin

       A[i] := A[10 - i];

       PrintLn(a);

   end;

end.

Тут вывод трасировок последних циклов

1

[1,2,3,4,5,6,7,8,9,10,11]

[1,1,3,4,5,6,7,8,9,10,11]

[1,1,1,4,5,6,7,8,9,10,11]

[1,1,1,1,5,6,7,8,9,10,11]

[1,1,1,1,1,6,7,8,9,10,11]

[1,1,1,1,1,1,7,8,9,10,11]

[1,1,1,1,1,1,1,8,9,10,11]

[1,1,1,1,1,1,1,1,9,10,11]

[1,1,1,1,1,1,1,1,1,10,11]

[1,1,1,1,1,1,1,1,1,1,11]

[1,1,1,1,1,1,1,1,1,1,1]

2

[1,2,3,4,5,6,7,8,9,10,11]

[1,2,3,4,5,6,7,8,9,10,1]

[1,2,3,4,5,6,7,8,9,2,1]

[1,2,3,4,5,6,7,8,3,2,1]

[1,2,3,4,5,6,7,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

Подробнее - на -

Объяснение: