Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
snigireva00
28.08.2021 03:36 •
Информатика
Написать программу. чтоб вводимое число делилось на 2 пока она не станет 0. и пусть ввыведит все деление)
Показать ответ
Ответ:
pishinaangelina
18.06.2020 18:52
Pascal:
var
a:integer;
begin
write('Введите число: ');
readln(a);
repeat
a:=a div 2;
writeln(a);
until a=0;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
666deadlyshadow666
28.11.2022 22:51
Составить слова из этих букв по теме носители информации амнкеь аскстеа ппрсиау секдиат агубам лфеш чевистерн . заранее большое !...
gnatiuk1981
28.09.2020 23:13
Какие действия считаются плагиатом?Использование цитат, помещенных вкавычки с указания авторстваИспользование чужой работы суказанием себя как автораНикогда не скачивать...
ОTВЕT
26.06.2022 17:57
. Как называется персонаж в игровой среде программирования? (Программа ЧАС КОДА КОДВАРДС) * Move rotate cat cats...
annarykova40367
13.01.2020 19:10
Найди длину окружности L если известен радиус окружности R значение Pi 3.14 определи математическую модель для данной постановки задачи...
Solyankaya
06.06.2021 04:20
это сор информатика ...
poiu123
20.04.2022 05:50
K Выбери ФЛЕШ-НАКОПИТЕЛИ (несколько вариантов ответа) CD-дискидискетаnкарта памятифлешкажесткий дискDVD-диски...
KaRaIcHiTaN
18.04.2022 02:19
1.через пробел запишите числа, которые будут в списке a=[i for i in range (6,18) if % 2==0] 2. Задан одномерный массив А(5). Найти произведение элементов меньших 10...
Dog12347
28.06.2020 06:42
Оответьте на вопрос что входит в основные инструменты скетчап ...
ns151199
12.10.2022 14:13
Використовуючи цикл з після умовою скласти програму,яка виводить на екран усі парні натуральні числа, які менші за 50...
mklslajh
01.03.2022 06:54
Отметьте правила ,которые следует соблюдать при работе за компьютером : * разрешается трогать провода и соединительные кабелиможно отсоединять устройства, подключенные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:integer;
begin
write('Введите число: ');
readln(a);
repeat
a:=a div 2;
writeln(a);
until a=0;
end.