Байт килобайт мегабайт и гигабайт
1 гигабайт=1024 мегабайт
1 мегабайт=1024 килобайт
1 килобайт=1024 байт
ну и для общего развития 1 байт=8бит
Function ob(r:real):real;
var v:real;
begin
v:=4/3*r*r*r*pi;
ob:=v;
end;
var n,i:integer;
v1,r1:real;
begin
readln(n);
for i:=1 to n do
begin
write('Введите радиус ',i,'-го шара: ');
readln(r1);
v1:=ob(r1);
writeln('Объем шара: ',v1);
writeln;
end;
end.
Var
i, n, max: integer;
s: string;
begin
n := 0;
max := 0;
readln(s);
for i := 1 to length(s) do
begin
if(s[i] = '0') then n := n + 1
else begin if(n > max) then max := n; n := 0; end;
end;
write(max);
end.