//Pascal
var
Ez: byte;
z: real;
begin
writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');
write('Введите номер единицы измерения: '); readln(Ez);
write('Введите длинну: '); readln(z);
if Ez = 1 then writeln(z/10, ' м');
if Ez = 2 then writeln(z*1000, ' м');
if Ez = 3 then writeln(z, ' м');
if Ez = 4 then writeln(z/1000, ' м');
if Ez = 5 then writeln(z/100, ' м');
readln;
end.
5(10с.с.)=10(5с.с.)
6=<span>11
7=12
8=13
9=14
10=20</span>
1)
8×10^4+7×10^3+6×10^2+5×10^1+4×10^0
11×16^3+12×16^2+13×16+3
7×8^4+5×8^3+3×8^2+1×8+1×8^0
2^4+2^2+2^1
2)
3586 (10)=2048+1024+512+2=111 000 000 010(2)=7002(8)=D02(16)
11257 (10)=8192+2048+1024+2+1=010 110 000 000 011(2)=25003(8)=2C03(16)
328(10)=256+64+8=101 001 000(2)=510(8)=148 (16)
512 (10)=001 000 000 000(2)=1000 (8)=200(16)
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var k:=0;
for var n:=184 to 254 do begin
var m:=n;
while m mod 2=0 do m:=m div 2;
while m mod 3=0 do m:=m div 3;
if m=1 then Inc(k)
end;
Writeln('Количество чисел равно ',k)
end.
<u><em>Результат выполнения программы</em></u>
Количество чисел равно 3