Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма...

Question

Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000

Comments

Какой язык?

---

В visual basic

---

Страшилище какое. Так как язык был указан после публикации ответа, у меня полное право на Ваши баллы. В следующий раз указывайте язык в вопросе при публикации.

---

Напиши цикл и забирай баллы :)

---

Помогите

---

а Visual Basic какой? VB6 или VB.Net ?

Answer 1

' Вариант на VBScript
Sub Zadanie()
    a = CInt(InputBox("a ="))

    Do While a <= 1000<br>        a = a + 10
    Loop
    MsgBox a
End Sub

' Вариант на для VB.Net
Module Module1

    Sub Main()
        Dim a As Integer
        Console.Write("a=")
        a = CInt(Console.ReadLine())

        Do While a <= 1000<br>            a = a + 10
        Loop
        Console.WriteLine(a)
    End Sub

End Module

Comments

для VB.Net

---

Module Module1

Sub Main()
Dim a As Integer
Console.Write("a=")
a = CInt(Console.ReadLine())

Do While a <= 1000<br> a = a + 10
Loop
Console.WriteLine(a)
End Sub

End Module

Answer 2

//Pascal ABC.NET 3.1 сборка 1219

Var
 a:integer;
begin
readln(a);
while (a<=1000) do<br> a:=a+10;
writeln(a);
end.

Пример ввода:
567
Пример вывода:
1007