Описание
Имало едно време един могъщ магьосник. Неговото име било Гуеногфрин. Не след дълго той станал велик магьосник. Добросърдечен бил той. Използвал магията си единствено, за да защитава хората от злите вещици, идващи през нощта. Гуеногфрин, въпреки това, бил миролюбив и не искал да се бие или нарани вещиците, затова той измислил друго решение. Щял да хваща вещиците и да ги заключва в пясъчни часовници (единственият затвор, от който вещица не може да избяга). За нещастие, пясъчните му часовници били на привършване. Помогни на Гуеногфрин да залови всички вещици като направиш свои собствени пясъчни часовници.
Пример
![Sand-glass](https://gnnmobile.eu/wp-content/uploads/2013/07/Sand-glass.png)
Решение
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Module SandGlass | |
Sub Main() | |
Dim n = Integer.Parse(Console.ReadLine()) | |
Dim stars As Integer = n + 2 | |
Dim add As Boolean = False | |
For i As Integer = 1 To n | |
If stars = 1 Then | |
add = True | |
End If | |
stars = If(add = False, stars - 2, stars + 2) | |
Dim dots As Integer = (n - stars) * 0.5 | |
Console.Write(New String(".", dots)) | |
Console.Write(New String("*", stars)) | |
Console.Write(New String(".", dots)) | |
Console.WriteLine() | |
Next i | |
Console.ReadLine() | |
End Sub | |
End Module |