Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
амир299
11.01.2023 16:50 •
Информатика
Написать программу. чтоб вводимое число делилось на 2 пока она не станет 0. и пусть ввыведит все деление)
Показать ответ
Ответ:
bogdanstarunskp06m9y
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 оценок)
Популярные вопросы: Информатика
АляСмирнова
01.06.2020 18:09
Составьте программу в паскаль для вычисления: найти радиус окружности, описанной около правильного n-угольника со стороной а...
lolka143
13.01.2021 18:58
На скільки кроків переміститься об єкт в результаті виконання даної програми? а)10 б)5 в)20 г)25...
margo2606
14.10.2022 06:20
Раздели циферблат часов прямыми на шесть частей так,чтобы в кажой из них было по два числа и их суммы были равными....
GNA14
14.10.2022 06:20
Миша живет в 22-этажном доме. в нем есть лифт, в котором работают только 2 кнопки. при нажатии на одну из них лифт опускается на 5 этажей, а при нажатие на другую -...
Ksenya0809
27.08.2021 11:18
Вычислить значения функции y=e^2/x-cos2x+1 , для значений x , изменяющихся от 1 до 5, с шагом 0.01.нужен код на питоне...
Infinity167
24.03.2022 21:36
Нужно написать программу на паскале для просчёта траектории орбитальной станции, летящей вокруг земли входные параметы, это её скорость, масса и высота над землёй в...
chifire
28.01.2023 08:59
Даны целые положительные числа m и n. сформировать целочисленную матрицу размера mxn, у которой все элементы i-й строки имеют значение 10*i (i=1, ) написать программу...
innesa260778
02.01.2022 06:29
Впитоне (python). надо создаться список с элементами. определить сколько в нем четных,а сколько нечетных элементов. 14 ....
virakudleychuk
25.04.2021 13:09
Когда изобрели фотографии? (дата, век) )...
maks22157
14.08.2022 17:16
Определите среднюю кинетическую энергию поступательного движения молекулы кислорода,если средняя квадратичная скорость молекул равна 1080 км/ч...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.