Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Написать программу, которая каждый отрицательный элемент дерева заменяет на положительный, а положительный https://www.cyberforum.ru/ pascalabc/ thread1185305.html Тема: Дерево. Написать программу, которая каждый отрицательный элемент дерева заменяет на положительный, а положительный превращает в ноль.	Связный (линейный) список Pascal ABC Написать программу, которая создает файл целых чисел, а затем формирует список целых чисел файла. Создать список чисел, являющихся суммой соседних элементов.
Pascal ABC Программа для тестирования зачёт нужен помогите кто может заранее спасибо Тестирование широко применяется для оценки уровня знаний в учебных заведениях, при приёме на работу, для оценки квалификации персонала учреждений, т.е. практически во всех сферах деятельности человека. Испытуемому предлагается ряд вопросов (тест), на которые он должен ответить. Обычно к каждому вопросу даётся несколько вариантов ответа, из... https://www.cyberforum.ru/ pascalabc/ thread1185276.html	Pascal ABC Строки выручите плз https://www.cyberforum.ru/ pascalabc/ thread1185269.html Помогите, добрые люди, с 1 задачей пожайлуста Перепечатывайте задание на форум.
Pascal ABC ПОМОГИТЕ С СЕМЕСТРОВОЙ Нужно написать на Паскале, на нисходящем программировании. Желательно использовать двумерный массив и нужен ИНТЕРПРЕТАТОР ЛЮБОЙ МАШИНЫ. Помогите, пожалуйста	Pascal ABC Сетка Напишите программу, которая решает следующую задачу. В центре стандартного графического окна выводится квадратная сетка из черных линий (см. рисунок ниже). Количество ячеек в сетке задается константой, а размер ячейки вычисляется в программе по формуле: высота графического окна, деленная на количество ячеек. Вывод сетки на экран обязательно оформите отдельной процедурой. Сетка должна полностью... https://www.cyberforum.ru/ pascalabc/ thread1185076.html
Pascal ABC Дизайн окон https://www.cyberforum.ru/ pascalabc/ thread1185037.html Нужно написать программу чтобы вышло как на рисунке	Модуль Graph Pascal ABC Написать прогу для рисунка
Pascal ABC Составить программу, которая вводит данные о студентах Составить программу, которая вводит данные о студентах: № п/п, фамилию, год рождения, пол, курс, вид спорта и выводит данные об однофамильцах https://www.cyberforum.ru/ pascalabc/ thread1185028.html	Pascal ABC Найти максимальный, минимальный элемент и их среднее арифметическое Найти максимальный, минимальный элемент и их среднее арифметическое минимального и максимального элементов https://www.cyberforum.ru/ pascalabc/ thread1185018.html
Дан текстовый файл. Удалить из него первую и последнюю строку Pascal ABC Дан текстовый файл. Удалить из него первую и последнюю строку. (Желательно написать программу с оператором case of, для выбора "какую строку вы хотите удалить?"->"первую" или "последнюю"). Очень нужна ваша помощь! Спасибо всем за любое содействие!	Pascal ABC Обработка символьных данных https://www.cyberforum.ru/ pascalabc/ thread1184983.html Определите, совпадают ли последние буквы трех слов. После приставки "под" вставьте "ъ". Вычеркните из трех слов одинаковые символы.

Sveta789

0 / 0 / 0

Регистрация: 22.05.2014

Сообщений: 13

29.05.2014, 23:02 [ТС]

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки - Pascal ABC - Ответ 6247161

29.05.2014, 23:02. Показов 5074. Ответов 3

Метки (Все метки)

Ответ

это решение через функцию, а надо через procedure
обычное решение выглядит так

Pascal

Var a,b,p,x,k:Integer;
BEGIN
Writeln('Ввести концы отрезка');
Readln(a,b);
If a>b Then begin x:=a; a:=b; b:=x; end; {если начало отрезка введено больше конца}
k:=0; {счетчик искомых чисел}
Writeln('');
For x:=a to b do
   Begin
   p:=1;  {для нахождения произведения}
   While p<x do p:=p*2; {пока произведение меньше числа х}
   If p=x  {после выполнения цикла: если р=х, то}
       Then Begin
            Writeln (p); {выводим найденное число}
            k:=k+1; {и считаем, что одно число уже вывели}
            End;
   End;
If k=0  {если счетчик искомых чисел остался равен 0, то нужных чисел нет}
   Then Writeln('Степеней 2 на данном отрезке нет');
End.

Вернуться к обсуждению:
Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.05.2014, 23:02

Готовые ответы и решения:

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

Дан натуральный отрезок чисел [A, B]. Найти те числа этого отрезка, которые оканчиваются на 3
дан натуральный отрезок чисел . Найти те числа этого отрезка, которые оканчиваются на 3

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

	29.05.2014, 23:02

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.05.2014, 23:02

Помогаю со студенческими работами здесь

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть числа нечетные
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых есть числа...

Дан натуральный отрезок [a,b]. Вывести из этого отрезка все числа кратные 7
Дан натуральный отрезок . Вывести из этого отрезка все числа кратные 7.

Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые являются степенью пятерки
Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые...

Найти сумму только тех чисел, которые являются степенью двойки
С клавиатуры вводится n произвольных натуральных чисел, найти сумму только тех чисел, которые...

Наверх