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>
2 Кбайт = 2*1024 байт = 2048 байт
128 бит = 128/8 байт = 16 байт
2048+16 = 2064
Сережа-Антонов
Николай-Васильев
Петр-Борисов
Олег -Дроздов
Леонид-Иванов
Var n,a,b:integer; begin read(n); a:= n div 10; b:=n mod 10; if a=b then write('Число симметричное') else write('Число несимметричное'); end.
Представленную в двоичном виде(ДВОИЧНЫЙ КОД)