Var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
Ответ:
2 единицы
643
A1B
Объяснение:
Сколько единиц в двоичной записи числа 65? - 100 0001 - 2 единицы
1A3(16) - это 643(8) или 419 (10)
101000011011(2) - A1B(16)
О, да тут куча всяких допущений и пренебрежений, это ж физическая задача в первую очередь. Какую траекторию будем брать для пули? Пистолет в руке у Ржевского и центр мишени на одной горизонтали или нет? Сопротивление воздуха будем считать или нет? Все это нужно знать, чтоб решить такую задачу.
14
к В 2 дороги
к Е 3 дороги
к Ж 3+3+2=8