Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>
Учёные используют Системное ПО
Дизайнеры используют Прикладное ПО
Веб.-Прогр. использует Системы прогр.
Методист использует Системное ПО
Дизайнеры используют Прикладное ПО
Я не понял скажи какой вапрос?
Глубина цвета - количестви бит, необходимое для хранения 1 пикселя в памяти.
Итого имеем 720 * 540 = 388 800 пикселей.
На хранение этого количества пикселей потребуется 388 800 * 24 = 9 331 200 бит = 1 166 400 байт ~= 1139 Кбайт