Напишите программу, которая вводит натуральное число N и выводит на экран чётные положительные степени числа 2, не большие, чем N, в порядке убывания.

Question

Информатика

Стефана

18 июля, 17:30

Напишите программу, которая вводит натуральное число N и выводит на экран чётные положительные степени числа 2, не большие, чем N, в порядке убывания.

+5

Ответы (1)

Знаете ответ на вопрос?

Вита · Answer 1

Var n, k, m: integer;

begin

write ('число: ') ; readln (n) ;

m:=1;

k:=trunc (log2 (n)) ;

if (k mod 2) = 1 then m:=m shl (k-1)

else m:=m shl k;

repeat

write (m,' ') ;

m:=m shr 2;

until m<2;

end.