var
a, b, x, s, p: integer;
begin
writeln(' Ввести х');
readln(x);
s := 0;
x := Abs(x); { защита от ввода отрицательных }
while x > 0 do
begin
s := s + x mod 10;
x := x div 10
end;
writeln(' Сумма цифр=', s);
end.
А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.
Const
K = 13;
Var
A:array[1..K] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
S:=0;
i:=0;
Repeat
i:=i+1;
if A[i]>0 then
Repeat
S:=S+A[i];
i:=i+1
Until i>K;
Until i>=K;
WriteLn;
WriteLn('S = ',S);
End.
Главные удобства панели быстрого запуска в том, что, во-первых, программа запускается при однократном нажатии на значок. То есть, не нужен двойной щелчок, а достаточно нажать на ярлык. Второе, еще более полезное свойство панели быстрого запуска - это то, что она находится поверх остальных окон. Я думаю, что у вас были случаи, когда нужно запустить программу, а чтобы добраться до ее значка на рабочем столе, необходимо закрыть или свернуть несколько других окон.
Можно добавлять значки программ на панель быстрого запуска для ускорения доступа к часто используемым программам или удалять ненужные значки.