procedure klickkor(korX:integer;korY:integer);  // p - пауза в секукндах var Pt: TPoint; begin Pt.x := korX; Pt.y := korY;   {Преобразуем Pt к координатам экрана}   Pt := ClientToScreen(Pt);   {Преобразуем Pt к "mickeys" (аболютным координатам курсора мышки}   Pt.x := Round(Pt.x * (65535 / Screen.Width));   Pt.y := Round(Pt.y * (65535 / Screen.Height));   {Переместим курсор мыши}   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);   {Имитируем нажатие левой кнопки мыши}   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);   {Имитируем отпускание левой кнопки мыши}   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); end;

Unit1.pas(225): Incompatible types: 'HWND' and 'TPoint

//N101
#include <iostream.h>
#include <conio.h>

int main()
{ int i,j,k1,k2,n;
	n=10000000 ;//до какого числа считать
	cout << "Numbers(less then 1000000), the sum of numbers of which is divided on 7.\n\n";
	for (i=2;i<n;i++){
		j=i+1;
		k2=0;
		while (j>0){
			k2+= j%10;
			j/=10;
		}
		if (k1%7==0 && k2%7==0){
			cout << "Number is: ";
			cout << i << "\n";
		}
		k1=k2;
	}
	cout << "\n";
	getch();
	return 0;
}

//N101
#include <stdio.h>

int main()
	{
	int i, j, k1, k2, n;
	n = 10000000 ;
	printf( "Numbers(less then 1000000), the sum of numbers of which is divided on 7.\n\n" );

	for ( i = 2; i < n; i++ )
		{
		j = i + 1;
		k2 = 0;

		while( j > 0 )
			{
			k2 += j % 10;
			j /= 10;
			}

		if ( k1 % 7 == 0 && k2 % 7 == 0)
			{
			printf( "%s: %d \n", "Number is", i );
			}

		k1 = k2;
		}
	printf( "\n" );
	getch();
	return 0;
	}