Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Cyborg Drone
Модератор
5398 / 3207 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
10.02.2018, 00:37 0

Вывести четные положительные степени числа 2, не превышающие числа N

10.02.2018, 00:37. Просмотров 864. Ответов 3
Метки (Все метки)

Ответ

более-менее оптимальный вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n, x: integer;
 
begin
  readln(n);
  x := maxint shr 1 + 1;
  while x >= n do x := x shr 2;
  if x = 1 then dec(x);
  repeat
    write(' ', x);
    x := x shr 2
  until x < 4;
  writeln
end.


Вернуться к обсуждению:
Вывести четные положительные степени числа 2, не превышающие числа N
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2018, 00:37

Вывести все четные числа начиная с числа N и до числа M
помогите кто чем может: while вывести все четные числа начиная с числа N и до числа M. числа...

Вывести все четные числа, начиная с числа N и до числа M
составить программу в паскале,используя оператор WHILE.Вывести все четные числа,начиная с числа N и...

Замените все положительные четные числа на числа "перевертыши"
Пусть дана прямоугольная матрица А(n х m), элементами которой являются целые числа. Замените все...

0
Другие темы раздела
Pascal ABC Напишите программу, которая находит все числа Армстронга на отрезке [ a , b ] http://www.cyberforum.ru/pascalabc/thread2187328.html
Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K -ю степень (где K – количество цифр в числе) равна самому числу. Например, 153 = 13 + 53 + 33. Напишите...
Pascal ABC Определить количество нечетных членов последовательснот, имеющих четные порядковые номера Даны натуральные числа n, A 1, A2 , ..., An . Определить количество членов Ak последовательности A1 , ..., An :имеющих четные порядковые номера и являющихся нечетными числами http://www.cyberforum.ru/pascalabc/thread2187295.html
Pascal ABC Нужен алгоритм который слаживает номера из разных линий файла
Program bilet; type bilete = record nrbil,pret,starea:integer; end; var f: file of bilete; b: bilete; i,n: byte; s:real; begin begin
Pascal ABC Нельзя преобразовать тип
Привет всем! при написании программы столкулся с проблемой при компиляции kr:= (0.6+(lat/2)/(COS*((3,14*grad)/180))*(long+0.6)); выдает Нельзя преобразовать тип Tuple<integer,real> к real...
Pascal ABC Напишите пожалуйста программу-игру "Угадай число" с графической заставкой перед игрой и в самой игре http://www.cyberforum.ru/pascalabc/thread2186802.html
напишите пожалуйста программу-игру "Угадай число" с графической заставкой перед игрой и в самой игре
Pascal ABC Помещение строки из файла в массив Дан текстовый файл. В нем записываются фамилия имя и возраст людей в столбик: Фамилия Имя - возраст Фамилия Имя - возраст Нужен алгоритм, выводящий только фамилию и имя: Фамилия Имя Фамилия Имя... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru