tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать цикл do while в
Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000
nekit1o6
2 31.07.2019 15:40
0
Ответы
derkioptu
28.09.2020 18:15
//Pascal ABC.NET 3.1 сборка 1219
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007
ПОКАЗАТЬ ОТВЕТЫ
JulianaBrolol
28.09.2020 18:15
' Вариант на 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lera24012002
13.12.2021 20:44
ойлануга сурақтар 1. Сурет түсін өндеуде RGB кисыктарын қалай колданамыз? 2. Photo-Brush-та берілген әсерлер суреттің сапасын өзгертуте қаншалыкты ыкпал етеді? 3. Эффект...
alenazayka200
13.12.2021 20:45
Какие клавиши на клавиатуре достаточно нажать одновременно для быстрого перемещения к концу текста? Ctrl и Page Down Ctrl и End Ctrl и Page Up Ctrl и Home...
Судзуми777
13.12.2021 20:46
Расставьте совпадающие понятия из столбца 2 в соответствии с типами форматирования в 1 столбце...
Danilenok
13.12.2021 20:46
Задание на картинке как можно быстрее...
Капка344
10.03.2019 09:13
Выполните вычесление по логической схеме...
ХочуЗнатьВсе1
10.03.2019 07:55
Решить ! просто не успеваю решить 1. вычислить какое количество информации приходится на одно сообщение длиной 3, 4, 5 и 6 символов, составленное из а) двоичного, б) троичного...
Besta69
10.03.2019 08:06
Решите . желательно развернуто....
ivanovaanastasi1
16.07.2019 02:20
Запишите слова с беглыми гласными по образцам. составьте словосочетание со словом листок в разных лексических значениях. корень-вихор,угол,чехол; кашель,узел ремень; приставка-подозвать;...
jdjsjsjsj
16.07.2019 02:20
Как связать любовь и ответственность в главе крестьянка в кому на руси жить хорошо?...
KeyP
16.07.2019 02:20
2907умножить на 3 умножить на 10 плюс 5403...
Популярные вопросы
Внутреннее строение моллюсков . особенности строения и функции органов...
3
Поставить данные словосочетания в указанном падеже. свежая зелень (д.п)...
2
Напишете что нельзя допускать при составлении семейного бюлжета, почему,...
2
Какое слово обозначает тело? 1.полиэтилен 2.стакан 3.железо 4.водовород...
3
Решение основания bc и ad трапеции abcd равны соответственно 5 и 20,...
2
Почему растительноядные насекомые высокой численностью по сравнению с...
1
Краткая информация о гражданской войне в сша. и причина войны....
2
Вычислите наиболее удобным...
2
Определите массу карбоната кальция, содержащегося в 10 кг известняка,...
2
Нужен кроссворд на тему горы на земле...
3
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007
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