Значение выражения (2∙343^123 + 2401)∙(3∙343^137 – 2401) записали в системе счисления с основанием 7. Сколько цифр 6 содержится в этой записи? С решением

ответ: Вот правильный (не уверен, но большинство ошибок думаю я исправил)

program dex;

uses

   ctr;

var ck,ct,summa:real;

     k,t:byte ;

begin

   writeln('Skolko kupili karandashei??');

   readln(t);  

   writeln('Skolko stoit odin karandash??');

   readln(ck);

   writeln('Skolko kupili tetradei??') ;

   readln(t);

   writeln('Skolko stoit odna tetrad??);

   readln(ct);

   summa:=k+ck+t*ct;

   writeln ('summa pokupki = ',summa:6:2 ' rub.');

   readln;

end.

я хз почему тут нужен модуль ctr

по убыванию цифры в записи этого числа.

У меня сделано, оппределяет но надо чтобы выводило то что число допустим 12838129 расположенно не по убыванию и не по возрастанию

// ConsoleApplication3.cpp: определяет точку входа для консольного приложения.

//

#include "stdafx.h"

#include <stdio.h>

#include <locale.h>

#include <string>

#include <conio.h>  

#include <windows.h>

#include <iostream>

using namespace std;

int _tmain()

{    

   setlocale(LC_ALL, "Russian");

   SetConsoleCP (1251);

   SetConsoleOutputCP (1251);

   int x; string l; int rt;

   char str[256];char smt[256];

   printf("Enter number:");

   cin >> str;

   //for(int i=1;i<256;i++){

       if((int)str[1]>(int)str[2]){

           l="Ubuvanie";

       }

       else if((int)str[1]<(int)str[2]) {

           l="Vozrast";

       }

   //}

   cout << l;

   cin >> rt;

   return 0;

Сделал чтобы возрастало и убывало.Но надо чтобы число 129312931 подобное этому, считало неправильным.