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

для VB.Net

Module Module1 Sub Main() Dim a As Integer Console.Write("a=") a = CInt(Console.ReadLine()) Do While a <= 1000 a = a + 10 Loop Console.WriteLine(a) End SubEnd Module

//Pascal ABC.NET 3.1 сборка 1219Var a:integer;beginreadln(a);while (a<=1000) do a:=a+10;writeln(a);end.Пример ввода:567Пример вывода:1007

' Вариант на VBScriptSub Zadanie()    a = CInt(InputBox("a ="))    Do While a <= 1000        a = a + 10    Loop    MsgBox aEnd Sub' Вариант на для VB.NetModule Module1    Sub Main()        Dim a As Integer        Console.Write("a=")        a = CInt(Console.ReadLine())        Do While a <= 1000            a = a + 10        Loop        Console.WriteLine(a)    End SubEnd Module