как то так F:\SCHOOL\a1.doc
Задача с подвохом.
Москвичей красных сказано,что три,далее же говориться о том,что из них старых вообще нет,а потому я и говорю,что новых красных москвичей ровно три
<span><em>Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.</em></span>
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses Crt;
procedure MySwap(a:array of integer);
begin
var n:=a.Length;
for var i:=0 to n div 2 do Swap(a[i],a[n-i-1])
end;
procedure MyPrint(txt:string; a:array of integer);
begin
Print(txt); a.Println
end;
begin
var n:=ReadInteger('n=');
var a:=new integer[n];
var b:=new integer[n];
Randomize;
for var i:=0 to n-1 do begin
a[i]:=Random(10); b[i]:=Random(10);
end;
ClrScr;
MyPrint('Исходный А :',a); MySwap(a); MyPrint('Результат А:',a);
MyPrint('Исходный B :',b); MySwap(b); MyPrint('Результат B:',b)
end.
6) а)408:17=24(10)=11000(2)
б) 2410(8)=10100001000(2)=1288(10); 27(8)=10111(2)=23(10); 1288:23=56(10)=111000(2)=70(8)
в) D4A(16)=110101001010(2)=3402(10); 1B(16)=11011(2)=27(10); 3402:27=126(10)=1111110(2)=7E(16)