Lucky Patcher - это патчер приложений, позволяющий получить дополнительные возможности в установленных андроид играх и программах. Лаки Патчер позволяет делать по настоящему невероятные вещи, даже отключать рекламу или бесплатно покупать во внутре-игровых магазинах, тем самым получая бесконечное золото или другую игровую валюту совершенно бесплатно.
1)
Program hhh54;
var x:longint;
begin
read (x);
if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ')
else write ('НЕ ЯВЛЯЕТСЯ');
end.
2)
а)
Progran hhh54;
var i,k,x:longint;
begin
k:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1;
read (x);
end;
write (k);
<span>end.
</span>
б)
Progran hhh54;
var i,s,x:longint;
begin
s:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x;
read (x);
end;
write (s);
end.
DВот решение данной задачи на языке Pascal:
var
s:string;
k,n,i:longint;
begin
read(s);
k:=0;
n:=0;
for i:=1 to length(s) do
begin
if ord(s[i])=65 then k:=k+1;
if ord(s[i])=32 then
begin
if k=3 then n:=n+1;
k:=0;
end;
end;
writeln(n);
end.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,99); a.Println;
var imin:=0;
var imax:=0;
for var i:=1 to n-1 do
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i;
if imin<imax then
for var i:=imin+1 to imax-1 do a[i]:=0
else
for var i:=imax+1 to imin-1 do a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
38 62 15 47 50 69 74 10 62 47 68 89 28 13 50
38 62 15 47 50 69 74 10 0 0 0 89 28 13 50