Информационная ёмкость: 1) жёсткого диска 2) cd 3) dvd 4) flash-память 5) blue-ray

Емкось жесткого диска варьируется от 128 гигабайт до 4 терабайт. емкость cd дисков около 700 мегабайт. емкость dvd дисков около от 4 гб до 7 гб. емкость flash накопителей примерно от 128 мегабйт до 2 терабайт. емкость  blue-ray дисков от 25 гб до 50 гб.

Function checkstring( s: string ): integer; var i, k, len: integer; begin  len : = length(s); k : = 0; for i : = 1 to len do begin if ( s[i] = 'п' ) then if s[ i + 1 ] = 'о' then if s[ i + 2 ] = 'л' then inc(k); end; checkstring : = k; end; var str: string; rez: integer; begin write('введите слово: '); readln(str); rez : = checkstring(str); if rez > 0 then writeln('буквосочетание "пол" встречается в слове в количестве: ', rez) else writeln('буквосочетание "пол" в слове не встречается'); end.

Const   gl=['а','е','ё','и','о','у','ы','э','ю','я',           'а','е','ё','и','о','у','ы','э','ю','я']; var   s,fam,otch: string;   i,j,n,ngl: integer; begin   writeln('введите через один пробел фамилию, имя и отчество');   readln(s);   fam: =''; i: =1; n: =length(s);   repeat       fam: =fam+s[i]; i: =i+1   until s[i]=' ';   otch: =''; j: =n;   repeat       otch: =s[j]+otch; j: =j-1   until s[j]=' ';   { im: =copy(s,i+1,j-i-1); так можно получить имя }   ngl: =0;   for i: =1 to n do       if s[i] in gl then ngl: =ngl+1;   writeln('длина введенной строки в символах равна ',n);   writeln('количество гласных букв в строке равно ',ngl);   writeln('введено отчество: ',otch);   writeln('количество букв в фамилии равно ',length(fam)) end. тестовое решение: введите через один пробел фамилию, имя и отчество иванов петр сергеевич длина введенной строки в символах равна 21 количество гласных букв в строке равно 8 введено отчество: сергеевич количество букв в фамилии равно 6