Вот моя прога, 2 года назад писал и не потерял)) Тут по нажатию на форму рисуется паутина как бы центр там куда ты нажала. Вообщем думаю разберешься, если что - пиши.
Public Class Form1
Dim x, y As Integer
Sub pau(ByVal gr As Graphics, ByVal x As Integer, ByVal y As Integer)
Dim i, w, h As Integer
gr.Clear(Color.White)
w = ClientRectangle.Width / 2
h = ClientRectangle.Height / 2
For i = 0 To 2
gr.DrawLine(Pens.BurlyWood, New Point(w * i, 0), New Point(x, y))
gr.DrawLine(Pens.BurlyWood, New Point(w * i, h * 2), New Point(x, y))
Next
gr.DrawLine(Pens.BurlyWood, New Point(0, h), New Point(x, y))
gr.DrawLine(Pens.BurlyWood, New Point(w * 2, h), New Point(x, y))
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Dim gr As Graphics = Me.CreateGraphics
x = e.X
y = e.Y
pau(gr, x, y)
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim gr As Graphics = e.Graphics
pau(gr, x, y)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 100
y = 230
End Sub
End Class
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
int n, a, b, c, d, e, f, k=0;
cin >> n;
a=n%10;
b=n%100/10;
c=n%1000/100;
d=n/1000;
e=n-d*1000-b*10+d*10+b*1000;
cout<<e<<endl;
if (a%2==0)++k; if (b%2==0)++k; if (c%2==0)++k; if (d%2==0)++k;
f=a; if (b<f) f=b; if (c<f) f=c; if (d<f) f=d;
if (b>a) a=b; if (c>a) a=c; if (d>a) a=d;
cout<<"Наименьшая цифра числа "<<f<<endl<<"Наибольшая цифра числа "<<a<<endl;
if (n%2==0)cout<<"Число делится на 2"<<endl;
else cout<<"Число не делится на 2"<<endl;
if (n%7==0)cout<<"Число делится на 7"<<endl;
else cout<<"Число не делится на 7"<<endl;
if (n%123==0)cout<<"Число делится на 123"<<endl;
else cout<<"Число не делится на 123"<<endl;
cout<<"Число четных цифр в числе равно "<<k<<endl;
return 0;
}
