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;
<span>end.
</span>
Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
193.125 в 10=1x10²+9x10¹+3x10⁰+1x10⁻¹+2x10⁻²+5x10⁻³
193125 в 8=1x8⁵+9x8⁴+3x8³+1x8²+2x8¹+5x8⁰
193125 в 16=1x16⁵+9x16⁴+3x16³+1x16²+2x16¹+5x16⁰
1931.25 в 5=1x5³+9x5²+3x5¹+1x5⁰+2x5⁻¹+5x5⁻²
Program cikli;unit math;var i,n,s,p:integer; a:array[1..20]of integer;begin writeln('Исходный массив: '); for i:=1 to 20 do begin a[i]:=RandomRange(1,20); writeln(' Элемент ',i,' = ',a[i]); end; writeln('Сумму и произведения скольки первых чисел вы хотите посчитать? '); readln(n); s:=0;p:=1;//цикл с параметром For i:=1 to n do begin s:=s+a[i]; p:=p*a[i]; end;writeln('Цикл с параметром');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с предусловиемi:=1;p:=1;s:=0;while i<>n do begin s:=s+a[i]; p:=p*a[i]; i:=i+1;end;writeln('Цикл с предусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с постусловиемi:=0;s:=0;p:=1;repeat i:=i+1; s:=s+a[i]; p:=p*a[i];until i=n;writeln('Цикл с постусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p);<span>End.</span>
Блин, мне кажется, или я не поняла смысл вопроса, какое число зачем считать и т.д.