Ответ следующий 0.3*1024=307.2Кб
1213 312 1519 1212 ,,,,,,,,,,,,
Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Var
matrix :array[1..4, 1..4] of integer;
min, sum, i, j :integer;
begin
min := maxint;
sum := 0;
for i:=1 to 4 do
for j:=1 to 4 do
read(matrix[i, j]);
for i:=1 to 4 do
for j:=1 to 4 do
begin
if matrix[i, j] < min then
min := matrix[i, j];
sum := sum + matrix[i, j];
end;
for i:=1 to 4 do
for j:=1 to 4 do
if matrix[i, j] < (sum / 16) then
matrix[i, j] := min;
end.
1) 10 х 15 см, - это 100 х 150 мм.
2) найдём общее количество точек в изображении: (100*50)*(150*50)=5000*7500=37500000.
3) для 16 цветов достаточно 4 бит, т.к. 16=2^4, поэтому: 37500000*4=150000000(бит) /8=18750000(Байт) /1024=18370,5469(Килобайт) /1024=17,8813835(Мегабайт).