Для любителя

Валерий Павленко 2

Sub Poisk
Dim a#,i#
i=0
a=Val(InputBox(“Введите a”))
1: i=i+1
If a >i Then
GoTo 1
End If
MsgBox (“Ответ=” +Str(i))
End Sub
Павленко В.В.
11.07.2012г.

Список читателей / Версия для печати / Разместить анонс / Заявить о нарушении

Другие произведения автора Валерий Павленко 2

Рецензии

Написать рецензию

Написать рецензию Написать личное сообщение Другие произведения автора Валерий Павленко 2

Авторы Произведения Рецензии Поиск Магазин Вход для авторов О портале Стихи.ру Проза.ру

Портал Стихи.ру предоставляет авторам возможность свободной публикации своих литературных произведений в сети Интернет на основании пользовательского договора. Все авторские права на произведения принадлежат авторам и охраняются законом. Перепечатка произведений возможна только с согласия его автора, к которому вы можете обратиться на его авторской странице. Ответственность за тексты произведений авторы несут самостоятельно на основании правил публикации и законодательства Российской Федерации. Данные пользователей обрабатываются на основании Политики обработки персональных данных. Вы также можете посмотреть более подробную информацию о портале и связаться с администрацией.

Ежедневная аудитория портала Стихи.ру – порядка 200 тысяч посетителей, которые в общей сумме просматривают более двух миллионов страниц по данным счетчика посещаемости, который расположен справа от этого текста. В каждой графе указано по две цифры: количество просмотров и количество посетителей.