Module Module1

[email protected] в категроии Информатика, вопрос открыт 24.02.2018 в 16:15

Sub Main()
Dim N, m, c, h As Integer
Console.WriteLine("Ввдеите высоту ёлки")
N = Console.ReadLine
Console.WriteLine("Ввдите количество столбцов")
h = Console.ReadLine
Console.WriteLine("Введите количество блоков")
m = Console.ReadLine
For f = 1 To m
For i = 1 To N
For k = 1 To h
For j = 1 To N - i
Console.Write(" ")
Next
For j = 1 To i * 2 - 1
Console.Write("*")
Next
For j = 1 To N - i
Console.Write(" ")
Next
Console.Write(" ")
Next
Console.WriteLine()
Next
Console.WriteLine()
Next
Console.WriteLine()
Console.ReadKey()
End Sub
End Module

Что нужно добавить, чтобы у ёлки был ствол в 1 клетку по середине? Язык: Visual Basic. Консольное приложение