Решение задачи за 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д