Написать программу в паскале: дано натуральное число n. заменить порядок следования цифр числа n на обратный.

Var a, n: integer; begin        writeln('введите число');         readln(n);   a: =0;         while n> 0 do  begin            a: =a*10+n mod 10;             n: =n div 10;           end;       writeln (a);       readln;   end.

Var   n,x: string;   i: integer; begin write('введите число n: '); readln(n); for i: =length(n) downto 1 do  x: =x+n[i]; writeln('обратное число: ',x) end.или можно так: var   n: string; begin write('введите число n: '); readln(n); writeln('обратное число: ',reversestring(n) ) end.

Using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; namespace сишарп {       class program       {               static void main(string[] args)               {                       console.write("сумма покупки: ");                       double s = int.parse(console.;                       if (s > 500)                       {                               if (s > 1000) s *= 0.95;                               else s *= 0.97;                               console.writeline("сумма покупки с учётом скидки: {0: 0.00}",s);                       }                       else console.writeline("скидка не предоставляется");                       console.readkey();               }       } }

Using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; namespace сишарп {       class program       {               static void main(string[] args)               {                       console.write("n = ");                       int n = int.parse(console.;                       console.write("a({0}): ",n);                       double[] a = new double[n];                       int max = 1, min = 1;                       random rnd = new random();                       for (int i = 0; i < n; i++)                       {                               a[i] = rnd.nextdouble() * n;                               console.write(" {0: 0.0}",a[i]);                               if (a[i] > a[max]) max = i;                               if (a[i] < a[min]) min = i;                       }                       console.writeline("\nmin(a) = {0: 0.0}[{1}]",a[min],min+1);                       console.writeline("max(a) = {0: 0.0}[{1}]", a[max], max+1);                       console.readkey();               }       } } n = 13 a(13): 11,0 9,2 4,5 12,0 2,5 11,1 9,6 10,4 0,2 10,2 6,7 0,4 10,0 min(a) = 0,2[9] max(a) = 12,0[4]