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>
Винчествер!!!!!!!!!!!!!!!!!!!!!
1. var s, i: integer;
begin
for i := 1 to 100 do
s := s + i;
writeln('s=', s);
end.
2. var i, r: integer;
begin
writeln('Таблица умножения на 3');
for i := 1 to 10 do
begin
r := i * 3;
writeln(i, ' * 3 = ', r);
end;
readln;
end.
1. Десятичные - Двоичные
127 = 1111111
195 = 11000011
289 = 100100001
513 = 1000000001
54 = 110110
2. Двоичные - Десятичные
110101 = 53
100111 = 39
1101100 = 108
1011101 = 93
11001101 = 205