В какие из четырех клеток A, B, C или D можно поставить Робота, чтобы он выполнил алгоритм, записанный ниже, и сделал хотя бы один шаг? нц пока слева свободно влево кц
131 в 10-чной= 10000011 в 2-чной 131/2=65 и остаток 1 65/2=32 и остаток 1 32/2=16 и остаток 0 16/2=8 и остаток 0 8/2=4 и остаток 0 4/2=2 и остаток 0 2/2=1 и остаток 0
218 в 10-чной=11011010 в 2-чной 218/2=109 и остаток 0 109/2=54 и остаток 1 54/2=27 и остаток 0 27/2=13 и остаток 1 13/2=6 и остаток 1 6/2=3 и остаток 0 3/2=1 и остаток 1
777 в 10-чной = 1100001001 в 2-чной 777/2=388 и остаток 1 388/2=194 и остаток 0 194/2=97 и остаток 0 97/2=48 и остаток 1 48/2=24 и остаток 0 24/2=12 и остаток 0 12/2=6 и остаток 0 6/2=3 и остаток 0 3/2=1 и остаток 1
1011100 в 2-чной = 1*2^6+0+1*2^4+1*2³+1*2²+0+0=64+16+8+4=92 в 10-чной
100100 в 2-чной = 1*2^5+0+0+1*2²+0+0=32+4=36 в 10-чной.
1)var
a:array[1..5]of integer;
i,n,s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
s:=0;
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then s:=s+a[i]
end;
writeln('Сумма положительных элементов массива равна ', s)
end.
2)var
a:array[1..10]of integer;
i,n,P:integer;
begin
writeln('Введите число элементов');
readln(n);
writeln('Введите число');
P:=1;
for i:=1 to n do begin
read(a[i]);
if a[i] mod 6 = 0
then P:=P*a[i]
end;
writeln('Произведение элементов массива кратных 6 равна ',P)
end.
3)var
a:array[1..5]of integer;
n,i:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then begin
a[i]:=a[i]*3;
writeln('Новый элемент равен: ',a[i])
end;
if a[i]<=0 then begin
a[i]:=a[i]+5;
writeln('Новый элемент равен: ',a[i])
end;
end;
end.
Буду рад если отметишь мой ответ как лучший