Var a,V,S:integer;
Begin
writeln('Enter A:');
readln(a);
V:=a*3;
S:=6*2*a;
writeln('V=',V,'; S=',S,';');
end.
var a,b,sum,dob,raz:integer;
Begin
writeln('Enter A:');
readln(a);
writeln('Enter B:');
readln(b);
sum:=abs(a)+abs(b);
raz:=abs(a)-abs(b);
dob:=abs(a)*abs(b);
writeln('Summa=',sum,'; Raznost=',raz,'; Dobutok=',dob,';');
<span>end.</span>
Пример
44(10) переведём в двоичную систему
44 делим на 2. частное 22, остаток 0
22 делим на 2. частное 11, остаток 0
11 делим на 2. частное 5, остаток 1
5 делим на 2. частное 2, остаток 1
2 делим на 2. частное 1, остаток 0
1 делим на 2. частное 0, остаток 1
Частное равно нулю, деление закончено. Теперь записав все остатки снизу вверх получим число 101100(2)
Таблица истинности во вложении.