625 Кбайт = 625*1024 байт = 625*1024*8 бит
Время передачи файла = 625*1024*8/128000 = 40 с
Рассчитаем объем памяти S. Для этого умножим количество пикселей на глубину кодирования i, глубину кодирования определим из формулы: N=2^i, где N- кол-во цветов
4=2^i i=2
S=300*200*2= 120000 бит
При двухцветной палитре:
2=2^i
i=1
Тогда количество пикселей при 2 цветной палитре = S/i = 120000/1= 120000 пикселей
Ответ: 120000 пикселей
Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>
Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так:
program z;
var str:string;
begin
str:='ЦВЕТОВОДСТВО';
writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы}
writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы}
writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4));
writeln(copy(str,6,3)+'А');
end.