Составные компьютера или системный блок
Program z1;
var i,m:integer;
begin
m:=0;
for i:=39 to 5000 do
if (i mod 39=0)and(m<i) then
m:=i;
writeln(m);
end.
У тебя не видно адресов ячеек, поэтому попробую так объяснить:
В ту ячейку, где высвечивается цена в руб. вбей формулу
=цена в долларах * на курс доллара,
при этом на курс доллара надо сделать абсолютную ссылку, чтобы ее значение не менялось при протягивании формулы вниз. Надо поставить знак $ в адрес ячейки, например, $D$1. Это можно сделать при помощи клавиши F4
1024*256/8/1024 (доводим до килобайт) = 32;
768 кбайт / 32 = 24 бит на пиксель;
2^24 = 16 777 216 цветов.