Предмет: Информатика,
автор: Wasd11
написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000
Ответы
Автор ответа:
0
//Pascal ABC.NET 3.1 сборка 1219
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007
Автор ответа:
0
' Вариант на 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
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
Автор ответа:
0
для VB.Net
Автор ответа:
0
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
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
Похожие вопросы
Предмет: География,
автор: keti224
Предмет: Геометрия,
автор: Fixmyeye
Предмет: Информатика,
автор: Аноним
Предмет: История,
автор: artemis701