Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000
Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007
Гость' Вариант на VBScript
Sub Zadanie()
a = CInt(InputBox("a ="))
Do While a <= 1000
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
a = a + 10
Loop
Console.WriteLine(a)
End Sub
End Module
Не нашли ответ?
Похожие вопросы