Pascal
//Эта программа корректно работает для двухзнаных чисел
// при a > 100 будет к примеру 125 =>125-(12+5)...
var a,k : integer;
begin
k := 0;
readln (a);
while a > 0 do
begin
a := a - (a div 10 + a mod 10);
k := k +1;
end;<span>
writeln (k);
end.</span>
1110₂ + Х₂ = 111001₂
X₂ = 111001₂ - 1110₂
X₂ = 101011₂
Поскольку 4 = 2², достаточно заменить каждую пару двоичных цифр на одну четверичную. Замену ведем справа налево.
Х₄ = (10)(10)(11)₂ = 223₄
Просто поищи в магазинах, и все. Ну, естественно в магазинах где она может продоваться :3
Чё ?фывфывфыфвыфвыфвфывыфвыфвывыфвффывфывфывфывыф
Var
n:integer;
S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+Sin(n*x);
WriteLn('S = ',S)
End.