Написать программу. Чтоб вводимое число делилось на 2 пока она не станет 0. И пусть ввыведит все деление)
10-11 класс
|
Pascal:
var
a:integer;
begin
write('Введите число: ');
readln(a);
repeat
a:=a div 2;
writeln(a);
until a=0;
end.
Другие вопросы из категории
этой задачке составить блок-схему. пожалуйста. дам 60 баллов
сообщения используется четырехсимвольный алфавит
1) User Manager for Domain
2) Computer Management
3) User Manager
4) Active Directory Users and Computers
Читайте также
а) Четные числа делит на 2 и результат выводит на экран
б) нечетные числа выводит на экран без изменений
станет больше 70.Ни экраны вевести оба число.
ЗАПИСАТЬ ЗАДАЧУ В ПАСКАЛЕ!И ЕСЛИ МОЖНО ПРАВИЛЬНУЮ БЛОК СХЕМУ!
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
число рядов. Написать программу подсчета мест в кинотеатре «Оскар», в соответствии со схемой кинотеатра, представленной ниже. На экран вывести итоговое количество мест.(вложение - 1 рисунок)
Программа 6. Найти значение выражения для вводимых с клавиатуры А, В и С. при А=4, В=2, С=5.(вложение - формула)
Программа 7. Написать программу, вычисляющую значения логического выражения . На экран вывести это значение.
Программа 8. Пользователь вводит число 0,515625. Написать программу, которая в точности повторяет алгоритм перевода данного числа из десятичной системы счисления в четверичную. На экран вывести окончательный результат.