1110₂ + Х₂ = 111001₂
X₂ = 111001₂ - 1110₂
X₂ = 101011₂
Поскольку 4 = 2², достаточно заменить каждую пару двоичных цифр на одну четверичную. Замену ведем справа налево.
Х₄ = (10)(10)(11)₂ = 223₄
Var
m,g,a:real;
Begin
Write('Введите массу и ускорение (Через пробел) ');
Readln(m,a);
g:=9.8;
Write('Сила сопротивления воздуха равна ',m*g-m*a);
End.
VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin
Writeln('Vvedite massiv');
for i:=1 to N do
readln(a[i]);
b:=0; c:=0; d:=0;
for i:=1 to N do begin
if a[i] = 0 then inc(b);
if a[i] > 0 then inc(c);
if a[i] < 0 then inc(d);
end;
writeln('Kol-vo ravnih 0 - ',b);
writeln('Kol-vo bolshe 0 - ',c);
writeln('Kol-vo menshe 0 - ',d);
readln;
end.
<span>
</span>