1. найдите правильно построенное отрицание суждения "все воздушные шары
зелѐные":
все воздушные шары не зелѐные.
не верно, что все воздушные шары зелѐные.
докажите свою точку зрения с определения.
2. запишите отрицания следующих высказываний:
сегодня хорошая погода.
число 3 - чѐтное.
некоторые млекопитающие не живут на суше.
во всякой школе некоторые ученики увлекаются программированием.
3. попробуйте сформулировать правило построения отрицания (к какому слову
добавляется частица "не", какие слова обычно заменяются и на что).

Описание:
использовать Чертежник
алг
нач
сместиться на вектор(4,4)
опустить перо
сместиться на вектор(4,0)
сместиться на вектор(0,4)
сместиться на вектор(-4,0)
сместиться на вектор(0,-4)
сместиться на вектор(2,0)
сместиться на вектор(2,2)
сместиться на вектор(-2,2)
сместиться на вектор(-2,-2)
сместиться на вектор(2,-2)
сместиться на вектор(-1,1)
сместиться на вектор(2,0)
сместиться на вектор(0,2)
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
сместиться на вектор(1,0)
сместиться на вектор(1,1)
сместиться на вектор(-1,1)
сместиться на вектор(-1,-1)
сместиться на вектор(1,-1)
кон
Рисунок увидите сами при выполнении программы

Visual Basic? Их много, вот, например, на VB.NET

    Sub Main()
        Dim N As UInteger
        Dim Num As Integer
        Dim A As String = String.Empty
        N = Integer.Parse(Console.ReadLine())
        For i As UInteger = 1 To N
            Console.Write(i.ToString() + " ")
            Num = Integer.Parse(Console.ReadLine())
            If Num = 0 Then
                A += i.ToString()
            End If
        Next
        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine(A.Length)
        Console.WriteLine()
        For Each i As Char In A
            Console.WriteLine(i)
        Next
        Console.ReadKey()
    End Sub