Синформатикой)) 1.сколько байт информации занимакт текст «бит - единаца измерения количества информации» заклдированный в unicode 2.размер текстового файла в формате unicode равно 3 килобайта. определите количество символов в нем
Если друг оказался вдруг И не друг, и не враг, а - так, Если сразу не разберешь, Плох он или хорош, - Парня в горы тяни - рискни! Не бросай одного его, Пусть он в связке в одной с тобой - Там поймешь, кто такой.
Если парень в горах - не ах, Если сразу раскис и - вниз, Шаг ступил на ледник и - сник, Оступился - и в крик, - Значит, рядом с тобой - чужой, Ты его не брани - гони: Вверх таких не берут, и тут Про таких не поют.
Если ж он не скулил, не ныл, Пусть он хмур был и зол, но - шел, А когда ты упал со скал, Он стонал, но - держал, Если шел за тобой, как в бой, На вершине стоял хмельной, - Значит, как на себя самого, Положись на него.
Type name=(Anya,Valya,Zhenya,Petya,Sasha,Tanya,Shura,Yura); gender=(man,woman); information=record pol:gender; height:140..200 end; group=array[Anya..Yura] of information;
function SrRost(var Gr:group):single; var i:name; s:single; n:integer; begin s:=0; n:=0; for i:=Anya to Yura do begin s:=s+Gr[i].height; Inc(n) end; SrRost:=s/n end;
function Vysokiy(var Gr:group):string; var i,j:name; h:integer; begin h:=Gr[Anya].height; j:=Anya; for i:=Valya to Yura do begin if Gr[i].height>h then begin h:=Gr[i].height; j:=i end end; Vysokiy:=j.ToString end;
function OdinRost(var Gr:group):boolean; var i,j:name; flag:boolean; begin i:=Anya; flag:=false; repeat j:=Succ(i); while (not flag) and (j<=Yura) do begin flag:=(Gr[i].height<>Gr[j].height); Inc(j) end; flag:=(Gr[i].height<>Gr[j].height); if not flag then Inc(i); until flag or (i=Yura); OdinRost:=flag end;
var Grp:group; i:name; g:0..1; begin { ввод данных } for i:=Anya to Yura do begin Write(i.ToString+': укажите пол м/ж числом 0/1 '); Readln(g); if g=0 then Grp[i].pol:=man else Grp[i].pol:=woman; Write(i.ToString+': укажите рост, см (140-200) '); Readln(Grp[i].height) end; { вычисления } Writeln('Средний рост равен ',SrRost(Grp):0:1); Writeln('Наиболее высокий человек - ',Vysokiy(Grp)); If OdinRost(Grp) then Writeln('Есть минимум два человека одного роста') else Writeln('У всех в группе разный рост'); end.
Тестовое решение: Anya: укажите пол м/ж числом 0/1 1 Anya: укажите рост, см (140-200) 165 Valya: укажите пол м/ж числом 0/1 1 Valya: укажите рост, см (140-200) 170 Zhenya: укажите пол м/ж числом 0/1 0 Zhenya: укажите рост, см (140-200) 173 Petya: укажите пол м/ж числом 0/1 0 Petya: укажите рост, см (140-200) 178 Sasha: укажите пол м/ж числом 0/1 0 Sasha: укажите рост, см (140-200) 176 Tanya: укажите пол м/ж числом 0/1 1 Tanya: укажите рост, см (140-200) 170 Shura: укажите пол м/ж числом 0/1 1 Shura: укажите рост, см (140-200) 168 Yura: укажите пол м/ж числом 0/1 0 Yura: укажите рост, см (140-200) 175 Средний рост равен 171.9 Наиболее высокий человек - Petya Есть минимум два человека одного роста
2) 3кб = 3*1024 байт. 3072 байт / 2 = 1536 символов.