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
Описание: использовать Чертежник алг нач сместиться на вектор(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) кон Рисунок увидите сами при выполнении программы
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку