Function CalcMin(s: string): integer;
var min,p,n,c:integer; t:string;
begin
t:=s+' ';
min:=1000;
while t<>'' do
begin
while t[1]=' ' do delete(t,1,1);
p:=pos(' ',t);
if (p=4) then
begin
val(t[1]+t[2]+t[3],n,c);
if c=0 then if n<min then min:=n;
end;
delete(t,1,p);
end;
if min=1000 then CalcMin:=0 else CalcMin:=min;
end;
begin
writeln(CalcMin('123 jkl 105 45 ncmnn 1591'));
end.
Результат:
105
Если ASCII 7-битная:
30*60*7/8 = 1575 <span>B = 1.54 MB
</span>Если ASCII 8-битная:
30*60*1 = 1800 <span>B = 1.76 MB
</span>Если Unicode - UTF-8
30*60*1 = 1800 B = 1.76 MB
Если Unicode - UTF-16
30*60*2 = 3600 B = 3.52 MB
Если Unicode - UTF-32
30*60*4 = 7200 <span>B = 7.03 MB</span>
я думаю Инна наверное
Объяснение:
Оля: Разбила Инна
Надя: да, Оля права
Коля: Это либо Ира, либо Инна
А) 35*1024*8=286720 1024 т.к. в одном кб 1024 байта, а на 8 т.к. в одном байте 8 бит
б)458752/8/1024=56
в)109051904/8/1024/1024=13 2 раза делим на 1024 т.к. с байтов в килобайты а за тем килобайты в мегабайты, там по 1024 У.е.
г)4.5*1024*1024=4718592