Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
1. Дополнительный код:
а) 113 = 01110001
б) -113 = <span>10001111
2. 11000011 = </span>-61<span> - дополнительный код
3. 1022 = </span>1111111110 - положительный код
4. 1110011 = 115 - положительный код
<span>Для того, чтобы сделать фоновый цвет, то нужно выбрать необходимый цвет и выбрать заливку.Для основного цвета необходимо выбрать цвет и рисовать кисточкой или карандашом.для намалювання прямоугольника необходимо на панели выбрать фигуру прямоугольника и нарисовать.</span>
var
y: <em>real</em>;
begin
read(y);
writeln(System.Math.Pow(System.Math.Tan(<em>y * Pi / 180</em>), 3));
<span>end.</span>