Решение задачи за 10 класс (Олимпиада) - VB

Формулировка задачи:

Серега и Костен — заядлые спортсмены. Как обычно, они качались на турниках. В этот момент к ним подошла Маша и дала тонкий намек на то, что не отказалась бы посмотреть, как ребята играют в лесенку вплоть до N подтягиваний, а победитель получит приз. Игра в лесенку известна всем, но все же: каждый из парней делают по очереди подходы от 1 до N включительно подтягиваний, а потом от N-1 до 1 подтягивания. Победителем является тот, кто сделает все подходы правильно и не сдастся раньше, чем другой. Парни оказались крепкие и оба прошли эту лесенку. Так как у Маши всего одни приз, она в растерянности — кого же считать победителем. Прежде чем выбрать победителя, ей захотелось узнать, сколько всего раз подтянулись парни. Помогите Маше сделать это. Формат входных данных Во входном файле задано целое число N (1 ≤ N ≤ 109) — верхняя граница лесенки. Формат выходных данных Вывести общее количество подтягиваний, сделанные на турнике в игре лесенка обоими парнями. Мне именно в visual basic интересно... На pascal е уже есть решение...

Решение задачи: «Решение задачи за 10 класс (Олимпиада)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Command1_Click()
    Call Z
End Sub
 
 Sub Z()
     Dim x As Integer, inp As Integer, out As Integer
     inp = FreeFile
     Open "input.txt" For Input As inp
        out = FreeFile
        Open "output.txt" For Output As out
            Input #inp, x
            Write #out, ((x * x) * 2)
        Close (inp)
    Close (out)
End Sub