Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. например, число 12, 348 должно быть преобразовано к виду 12 руб. 35 коп.

Var i: integer; j,n: real; begin write('введите число: '); readln(n); i: =trunc(n); j: =round(frac(n)*100); write(i,' руб. ',j, ' коп.'); end.

Program spusku; uses crt; type             spusok=^elem;           elem=record                   data: integer;                   next: spusok;           end; var i: spusok; procedure add(var current: spusok; elem: integer); var x: spisok; begin       new(x);       x^.data: =elem;       x^.next: =nil;       current^.next: =x;       current: =x; end; procedure stvor(var i: spusok); var p: spisok; n: integer; begin     i: =nil;     writeln('vvedite spusok celux 4usel. 0-konec');     readln(n);     add(i,n);     readln(n);     while n< > 0 do     begin         p: =i;         while p^.next< > nil do         p: =p^.next;         add(p,n);         readln(n);     end; end; procedure minmax(var i: spusok); var p: spusok; kmin, kmax: integer; begin     kmin: =1000000;       kmax: =0;       while i< > nil do       begin       p: =i;       if p^.data> kmax then kmax: =p^.data;         if p^.data< kmin then kmin: =p^.data;           i: =i^.next;     end;       writeln('raznost =', kmax-kmin) end; begin clrscr; stvor(i); minmax(i); readkey; end.

Язык  python num  =  raw_input("введите число: ")  #  ввод  числа  с  клавиатуры tmp  =  list(str(num))  #превращаем  число  в  строку  а  строку  в  список tmp.reverse() # инвертируем  строку rez  =  []  #  список  под  результат for  i  in  range(len(tmp)):   # идем  по  индексам  в  tmp     if  i  and  not  i%3:   rez.append('.') #если i  делится  на  3  и  не  0,  добавляем  в  rez .     rez.append(tmp[i])  #  добавляем  в rez  элемент  tmp rez.reverse()  # инвертируем результат rez  =  "".join(rez)  # сшиваем  результат  обратно  в  строку print  rez  #  вывод  на  экран