Информатика 4тоқсан бжб 6 сынып​

осыма. .........100% дурыс

Вот моя прога, 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;

}