Запишите число 7892101*10 в пятой степени в естественной форме

7892101·10⁵ = 789210100000 умножить на 10 в пятой степени, значит приписать 5 нулей.

Var   s: longint;   n: array[1..5] of integer;   c, i: integer; begin   n[1] : = 1000;   n[2] : = 500;   n[3] : = 100;   n[4] : = 50;   n[5] : = 10;   write('введите сумму, кратную 10: ');   readln(s);   if (s mod 10) < > 0 then s : = 10 * (s div 10);   i : = 1;   while s > 0 do   begin       c : = s div n[i];       if c > 0 then begin write(n[i], 'x', c, ' '); s : = s mod n[i] end;       i : = i + 1   end end. тестовое решение: введите сумму, кратную 10: 52380 1000x52 100x3 50x1 10x3

Const   n = 3; var   m: array[1..n] of integer;   i, mn, mx: integer; begin   write('введите через пробел три целых числа: ');   i : = 1;   repeat       read(m[i]);       i : = i + 1   until i > n;   mn : = m[1];   mx : = mn;   i : = 2;   repeat       if mx < m[i] then mx : = m[i]       else       if mn > m[i] then mn : = m[i];       i : = i + 1   until i > n;   writeln('разность наибольшего с наименьшим равна ', mx - mn) end. тестовое решение: введите через пробел три целых числа: 7 9 3 разность наибольшего с наименьшим равна 6