4. r2-d2 и мусоропровод ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt хана, лею, чубакку и люка вот-вот раздавят в уплотнителе мусора. у r2-d2 мало времени и всего один шанс их он должен перепрограммировать систему , получив код отмены. для вычисления кода отмены используется специальный алгоритм. он преобразует целое число по следующему правилу: если количество единиц в двоичной записи этого числа нечётное, то все двоичные цифры в байте смещаются на 2 позиции вправо, а на образовавшееся место записываются два бита со значением 01. иначе число не изменяется. например, 1910=0001 00112 - число единичных бит нечётное, поэтому число преобразуется: x x00 01002 (сдвиг вправо) 0100 01002=6810 (результат) напишите программу для r2-d2, которая вычисляет наибольшее число, которое можно получить при преобразовании чисел из интервала [a, b] для получения кода отмены. формат ввода на вход программы подаётся два целых числа а и в, записанных через пробел (0 ≤ a ≤ b ≤ 109 формат вывода вывести одно целое число - вычисленное значение.
Ответы
1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
end.
2)var a:array of array of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
setlength(a,n+1);
for i:=1 to n do
setlength(a[i],n+1);
writeln('A array:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
end;
for i:=1 to n do
begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
end.
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
end.
2)var a:array of array of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
setlength(a,n+1);
for i:=1 to n do
setlength(a[i],n+1);
writeln('A array:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
end;
for i:=1 to n do
begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
3. Экранға «Program» сөзін 6 рет шығаратын программа кодын жазыңыз
Автор: maxchemaxim14
Составить с блок схемы программу на python
Автор: baranovaas
Сейчас для хранения файлов а когда то использовались трех
Автор: margo55577869
1. Что будет выведено на экран в результате выполнения инструкции print (2, 'a', 8, sep =', ')? С ИНФОРМАТИКОЙ
Автор: ИвановнаВладимир1832
Создать в PascalABC программу по переводу тонн в килограммы
Автор: andreevaalisa
С чего можно наглядно представить процесс изменения величин? 6 класс
Автор: leonid-adv70
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
end.
2)var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
for i:=1 to n do begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
end.