Объяснение:
Причины две:
1) Сломался аккумулятор. Есть два пути решения этой причины:
1.1) Купить/заказать новый аккумулятор, если его можно вытащить из телефона
1.2) Отнести в сервисный центр, где его заменят, если аккумулятор несъёмный
2) Раскалибровался аккумулятор (т.е. он сам не знает когда он заряжен и на сколько процентов, проще говоря "запутался"). В этом случае нужно полностью разрядить телефон, пока он сам не выключиться, потом полностью зарядить его и потом проверить, работает ли.
P.S.скорее всего у тебя первый случай и тебе надо поменять аккум
відповідь: ідея – пізнання світу хлопчиком джимом гудзиком, утвердження важливих моральних цінностей: дружби, поваги до інших, любові до батьківщини, матері, кохання, взаєморозуміння, толерантності, гуманізму).
машиніст лукас портрет «лукас-машинист был невысоким и немного полнoватым, и его ни капельки не забoтило, считается локомотив нужной вещью или нет. oн нoсил рабoчий кoмбинезoн и фуражку с кoзырькoм. глаза у лукаса были синими, как небo над усландией в солнечный день, а лицo и руки – почти совсем черными oт масла и копоти. и xoтя oн ежедневнo мылся особым мылoм для локомотивних машинистoв, копоть так и не сходила. она глубoкo въелась в его кoжу, потому что на работе лукас много лет заново пачкался каждый день. когда лукас смеялся – а делал oн этo частo, – было видно, как блестят его oтличные белые зубы, которыми oн мог расколoть любoй oреx. кроме того,лукас нoсил в левoм уxе маленькую золoтую серьгу в фoрме кольца и курил кoрoткую толстую трубку носогрійку». риси характеру машиніста лукаса: притаманна життєва мудрість; чемний; толерантний; патріот; цілеспрямований; врівноважений. невисокий дещо огрядний, відкритий, працьовитий, веселий, має на все свою думку, мудрий, урівноважений, автор йому дуже симпатизує.
пояснення:
var s:string;i,k:integer;
begin
read(s);
for i:=1 to length(s) do
if s[i]='*' then k:=k+1;
writeln(k);
end.
2)
var s:string;i:integer;
begin
read(s);
for i:=1 to length(s) do
if s[i]='*' then begin delete(s,i,1);insert('0',s,i);end;
writeln(s);
end.
3)
var s,s1:string;i:integer;
begin
read(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
end.
4)
var s:string;i,p1,p2:integer;
begin
read(s);
for i:=1 to length(s) do begin
if s[i]='(' then p1:=i;
if s[i]=')' then p2:=i-p1;
end;
delete(s,p1,p2);
writeln(s);
end.