49152 бит = 49152 / 8 байт = 6144 байт
Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
# Код на ruby 2.2.3p173
def zadanie(line)
a = []
(line.split(" ")).to_a.each {|element| a << element.to_i}
return 0 if a.size <= 2
k = 0
for i in 2..a.size - 2
k = k + 1 if a[i-1] < a[i] and a[i+1] < a[i]
end
return k
end
# Примеры применения
p zadanie("1 2 3 4 5")
p zadanie("1 5 3 4 2")
Это программка, качай и пользуйся, PascalABC
var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.