Var
L,m:real;
Begin
Write('L = ');Read(L);
Write('m = ');Read(m);
Write('Q = ',L*m,' Дж')
End.
Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
4. <span>10 1101 0011(2)=1*2^9+0*2^8+1*2^7+1*2^6+0*2^5+1*2^4+0*2^3+0*2^2+1*2^1+1*2^0=
512+128+64+16+2+1=723
</span><span>1323(8)= 1*8^3+3*8^2+2*8^1+3*8^0=512+192+16+3=723
</span><span>2D3(16)= 2*16^2+16*16^1+3*16^0=512+208+3=723
</span>
5.+<span>10 0011 1110(2)
</span><span> 1011 1111(2)=
</span> 111111 1111
Ничего сложного. Надо просто набрать предложенный в последней картинке текст. И отформатировать по правилам, которые в первой картинке. Результат во вложении.
Переводим всё в десятичную с.счисления, посчитаем и переведем ответ в какую надо с.счисления:
10(16)= 16 (10)
10(8)= 8 (10)
10 (2)= 2 (10)
ИТОГО: 16+8*2=32(10)
32(10)=100000 (2)
ответ: 3