Найти сумму чисел от 1 до 100 в программе паскаль abc

Var i,sum: integer; begin sum: =0; for i: =1 to 100 do sum: =sum+i; writeln(sum); end.

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

у меня сделано, оппределяет но надо чтобы выводило то что число допустим 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 подобное этому, считало неправильным.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

< html>  

< head> < title> формы и элементы< /title> < /head>  

< script language="vbscript">  

<  

sub cmdcalculate_onclick()

x11 = document.frmexercise2.x11.value

y11 = document.frmexercise2.x11.value

x22 = document.frmexercise2.x11.value

y22 = document.frmexercise2.x11.value

x33 = document.frmexercise2.x11.value

y33 = document.frmexercise2.x11.value

 

 

'x11 = inputbox("введите координату x1", , 1)

'y11 = inputbox("введите координату y1", , 1)

'x22 = inputbox("введите координату x2", , 4)

'y22 = inputbox("введите координату y2", , 1)

'x33 = inputbox("введите координату x3", , 3)

'y33 = inputbox("введите координату y3", , 2)

call pl(x11,y11,x22,y22,x33,y33)

end sub

sub pl(x1,y1,x2,y2,x3,y3)

d1 = sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)

d2 = sqr((x3 - x2) ^ 2 + (y3 - y2) ^ 2)

d3 = sqr((x3 - x1) ^ 2 + (y3 - y1) ^ 2)

if d2 + d3 > d1 and d1 + d3 > d2 and d2 + d1 > d3 then

    p = d1 + d2 + d3

    msgbox "периметр треугольника=" & p

    p = p / 2

    s = sqr(p * (p - d1) * (p - d2) * (p - d3))

msgbox "площадь треугольника=" & s  

else

    msgbox "такой треугольник не существует"

   

end if

end sub

-->  

< /script>  

  < /head>

    < body>

    < h1> вычисление площади треугольника< /h1>

    < p> написать программу которая вычисляет площадь треугольника,

      заданного координатами своих вершин.использовать формулу герона.

      вычисление расстояния между двумя точками оформить в виде процедуры или функции.< /p>

    < form name="frmexercise2">

        < table>

            < tr>

                < td> < b> x1=< /b> < /td>

                < td> < input type="text" name="x11" size=5> < /td>

            < /tr>

            < tr>

                < td> < b> y1=< /b> < /td>

                < td> < input type="text" name="y11" size=5> < /td>

            < /tr>

        < /table>

        < table>

            < tr>

                < td> < b> x2=< /b> < /td>

                < td> < input type="text" name="x22" size=5> < /td>

            < /tr>

            < tr>

                < td> < b> y2=< /b> < /td>

                < td> < input type="text" name="y22" size=5> < /td>

            < /tr>

        < /table>

    < table>

            < tr>

                < td> < b> x3=< /b> < /td>

                < td> < input type="text" name="x33" size=5> < /td>

            < /tr>

            < tr>

                < td> < b> y3=< /b> < /td>

                < td> < input type="text" name="y33" size=5> < /td>

            < /tr>

        < /table>

        < br>

        < input type="button" name="cmdcalculate" value="вычислить площадь">

    < /form>

    < /body>

    < /html>

вроде так