Десятичные числа:
( 1 ) -50 | Прямой код: 0000000000110010 | Обратный код: 1111111111001101| Дополнительный код: 1111111111001110 |
( 2 ) -500 | Прямой код: 0000000111110100 | Обратный код: 1111111000001011 | Дополнительный код: <span>1111111000001100 </span>|
2 кб = 2000 б (бо приставка к (кіло-) борівнює 10³=1000 )
<span>соответственно и 2000 б ≠ 3 кб</span>
Var a,s1,s2,i:integer;
begin
a:=random(4901)+100;
writeln('a = ',a);
s1:=0; s2:=0;
for i:=1 to 4 do
begin
if a mod 2 = 0
then s1:=s1+a mod 10 else s2:=s2+a mod 10;
a:=a div 10;
end;
writeln('Сумма чётных цифр = ',s1,' Сумма нечётных цифр = ',s2);
end.
Пример:
<span>a = 4683
Сумма чётных цифр = 18 Сумма нечётных цифр = 3</span>
var x,y:real;
begin
writeln('Vvedite x');
readln(x);
if x<1 then y:=abs(x) else y:=x*1/2;
writeln(y);
end.