Фонограф! 21 ноября 1877-го года изобретён Томасом Алвой Эдисоном.
23456₁₀ = 101101110100000₂
<span>var
a,x:integer;
Sum: integer;
begin
WriteLn('введите целое число');
ReadLn( a );
x:= a;
</span>Sum<span>:= 0;
while ( x<>0 ) do
begin
</span>Sum := Sum<span> + (x mod 10);
x := x div 10;
end;
WriteLn( 'Сумма цифр числа ',a,' = ', </span>Sum<span> );
</span>Пока Х больше нуля:
Находим остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;Избавляемся от последнего разряда числа n путем деления нацело на число 10.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024
Пусть изначально порядок записан, как "С. D".
Если D > C, переставить их местами. Иначе не менять порядок.