<span>1600*1200*24=(в битах) и разделим полученное число на 2^23 - будут Мбайты (т. е. на 1024*1024*8) и подобрираем карту</span>
Пппппввллнлнн вот такие буквы
1. 16 = 2^4, поэтому на кодирование 1 символа отводится 4 бита = 0,5 байта (1 байт = 8 бит).
0,5 байт/символ * 384 символа = 192 байта.
2. 3/8 Кбайт + 1024 байт = 0,375 Кбайт + 1 Кбайт = 1,375 Кбайт (1 Кбайт = 1024 байт)
Иначе: 3/8 Кбайт + 1024 байт = 3/8 * 1024 байт + 1024 байт = 384 байт + 1024 байт = 1408 байт.
3. Всего символов: 3 * 25 * 60
Объем в битах: 1125 * 8
Бит на символ: 1125 * 8 / (3 * 25 * 60) = 2
В алфавите 2^2 = 4 символа.
4. D5:E6 - прямоугольный диапазон, в углах которого стоят D5 и E6. В неговходят все указанные в задании ячейки.
СУММ(диапазон) считает сумму всех чисел в диапазоне. В данном случае получится 8+3+5+2=18.
Function GetWord(s:string; var ptr:integer):string;
var
i:integer;
begin
i:=PosEx(' ',s,ptr);
if i>0 then
Result:=Copy(s,ptr,i-ptr)
else
Result:=Copy(s,ptr,length(s)-ptr+1);
ptr:=i+1
end;
var
f,g:Text;
ib:integer;
s,Fam,Im,Ot:string;
begin
Assign(f,'Input.txt');
Reset(f);
Assign(g,'Result.txt');
Rewrite(g);
while not Eof(f) do begin
readln(f,s);
writeln(s); // отладочная выдача
ib:=1;
Fam:=GetWord(s,ib);
Im:=GetWord(s,ib);
Ot:=GetWord(s,ib);
writeln(g,Im,' ',Ot,' ',Fam); // закомментарить строку для б)
writeln(Im,' ',Ot,' ',Fam); // отладочная выдача
writeln(g,Fam,' ',Im[1],'.',Ot[1],'.'); // закомментарить строку для а)
writeln(Fam,' ',Im[1],'.',Ot[1],'.'); // отладочная выдача
end;
Close(f);
Close(g)
end.
Тестовый прогон:
Иванов Петр Сергеевич
Петр Сергеевич Иванов
Иванов П.С.
Тарасова Анна Георгиевна
Анна Георгиевна Тарасова
Тарасова А.Г.
Коваленко Евгений Станиславович
Евгений Станиславович Коваленко
Коваленко Е.С.
Петрова Татьяна Вячеславовна
Татьяна Вячеславовна Петрова
Петрова Т.В.
Бородкин Тимофей Савельевич
Тимофей Савельевич Бородкин
Бородкин Т.С.
Пышка Варвара Семеновна
Варвара Семеновна Пышка
Пышка В.С.
Голобородько Ирина Олеговна
Ирина Олеговна Голобородько
Голобородько И.О.