2. a) screen.fill (255, 255, 255)
командалық жолының қызметі:
O
1.экран өлшмедерін береді
2.геометриялық фигураларды
салуға мүмкіндік береді
3.экрен терезесінің артқы фонын
береді
4.программа терезесінің
тақырыбын беред решить задачу кокое потходить.​

Какое значение примет переменная х в результате выполнения следующих фрагментов программ? 
1) x:=0; for y:=1 to 9 do x:=x+y; 

y:=1    x = 1
y:=2    x = 3
y:=3    x = 6
y:=4    x = 10
y:=5    x = 15
y:=6    x = 21
y:=7    x = 28
y:=8    x = 36
y:=9    x = 45

x = 45

2) x:=1; for y:=1 to 5 do x:=x*y; 

y=1   x=1
y=2   x=2
y=3   x=6
y=4   x=24
y=5   x=120

x=120

3) x:=1; while x<>1 do begin x:=x+3; x:=x+1; end; 

x=1 (так как условие не используется)

4) x:=1; while x<100 do begin x:=x*2; end;

x=2       (2<100)
x=4       (4<100)
x=8       (8<100)
x=16     (16<100)
x=32     (32<100)
x=64     (64<100)
x=128   ( 128>100)

x=128 

Сколько раз выполниться тело цикла:
а) For i:=1 to 10 do x:=x+i;
10 раз (i=1   i=2   i=3   i=4   i=5   i=6   i=7   i=8   i=9   i=10)
б) For k:=2 to 22 do
If k mod 2=0 then s:=s+1;
11 раз (k=2   k=4   k=6   k=8   k=10   k=12   k=14   k=16   k=18   k=20   k=22)
(остальные k условию не соответствуют)

Решение на VB.NET:
        Const SIZE As Integer = 4
        Dim a, sum As Integer
        a = Console.ReadLine()
        sum = a
        Dim n(SIZE) As Integer
        For i = 1 To SIZE
            n(i) = a Mod 10
            a \= 10
        Next
        For i = 1 To SIZE
            For j = i + 1 To SIZE
                If n(i) > n(j) Then
                    Dim t As Integer
                    t = n(i)
                    n(i) = n(j)
                    n(j) = t
                ElseIf n(i) = n(j) Then
                    Console.WriteLine("Ошибка")
                    Exit Sub
                End If
            Next
        Next
        For i = 1 To SIZE
            sum += (n(i) + n(SIZE - i + 1)) * 10 ^ (i - 1)
        Next
        Console.WriteLine(sum)
        Console.ReadKey()