Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.

class CDIALOGDlg : public CDialog
{
public:
CDIALOGDlg();
enum { IDD = IDD_DIALOG1 };

protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support

// Implementation
protected:
DECLARE_MESSAGE_MAP()
public:
afx_msg void OnBnClickedCheck1();
// how long time client been in hotel

CString SecondName_String;
CString Adress_String;
int Phone_int;
int How_Many_Plays_int;
int How_Long_Stay_int;
};
CDIALOGDlg::CDIALOGDlg() : CDialog(CDIALOGDlg::IDD)
, SecondName_String(_T(""))
, Adress_String(_T(""))
, Phone_int(0)
, How_Many_Plays_int(0)
, How_Long_Stay_int(0)
{
}
void CDIALOGDlg:oDataExchange(CDataExchange* pDX)
{
CDialog:oDataExchange(pDX);
DDX_Text(pDX, IDC_EDIT1, SecondName_String);
DDV_MaxChars(pDX, SecondName_String, 20);
DDX_Text(pDX, IDC_EDIT2, Adress_String);
DDX_Text(pDX, IDC_EDIT3, Phone_int);
DDV_MinMaxInt(pDX, Phone_int, 0, 15);
DDX_Text(pDX, IDC_EDIT4, How_Many_Plays_int);
DDV_MinMaxInt(pDX, How_Many_Plays_int, 1, 255);
DDX_Text(pDX, IDC_EDIT5, How_Long_Stay_int);
DDV_MinMaxInt(pDX, How_Long_Stay_int, 1, 365);
}
/////++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++++++++++
BEGIN_MESSAGE_MAP(CDIALOGDlg, CDialog)
END_MESSAGE_MAP()

void CLab_8App::OnDIALOG1()
{
CDIALOGDlg DIALOGDlg;
DIALOGDlg.DoModal();
}


// App command to run the dialog
void CLab_8App::OnAppAbout()
{
CAboutDlg aboutDlg;
aboutDlg.DoModal();
}

lass CMainWndublic CFrameWnd // визначення класу головного вікна
{
private:

float value;
public:
CBitmap m_bmp;
CMainWnd();
void show_image();
DECLARE_MESSAGE_MAP();
};
BEGIN_MESSAGE_MAP(CMainWnd,CFrameWnd)
ON_COMMAND(ID_EXIT,OnClose)
ON_COMMAND(ID_IMAGE,show_image)
END_MESSAGE_MAP()
void CMainWnd::show_image()
{
InvalidateRect(NULL); //посылаем сообщение WM_PAINT
CPaintDC dc(this); //создать контекст устройства для вызова GDI -функции
CDC memDC; //создать контекст памяти для выбора информации из памяти
//создание контекста устройства памяти, совместимого с контекстом устройства GDI
memDC.CreateCompatibleDC(&dc);
memDC.SelectObject(&m_bmp); //выбор изображения в контекст области памяти
dc.StretchBlt(180,10,350,300,&memDC,0,0,300,300,SR CCOPY);


CString str="Снимок екрана\n";
dc.TextOutW(285,310,str,13);


};

Деление модулей нормализованного и ненормализованного чисел, нулей, бесконечных величин и их комбинаций с округлением до нуля

#include<stdio.h>
#include<iostream.h>
int n;

typedef int array[20];
array *ptr,*ptr1;
//////////////////////////////Vvedenni masuvy///////////////////////
array* input(int size)
{cout<<"input array"<<endl;
ptr1=new array[20];
for(int i=0;i<size;i++)
cin>>*ptr1[i];
return ptr1;
}
//////////////////////////vuvedeii masuvy/////////////////
void output(array* ptr,char *message)
{
cout<<message<<endl;
for(int i=0;i<n;i++)
cout<<*ptr[i]<<" ";
cout<<"\n";
}
///////////////////////sortyvanni mass////////////////
void sort(array *ptr)
{int temp;
for(int i=0;i<n-1;i++) //etalon///
{
for(int j=i+1;j<n;j++) //poto4nui elemnt///
if(*ptr[j]>*ptr[i]) //porivnanna poto4nogo elementa i etalona///
{ temp=*ptr[j];
*ptr[j]=*ptr[i];
*ptr[i]=temp;
}
}
}
//////////////////void main////////////
void main()
{ cout<<"lab5-to short array"<<endl<<"nomber of arrays members?";
cin>>n; ptr=input(n);
output(ptr,"entered array");
sort(ptr);
output(ptr,"sorted array");
getchar();
}