800 * 600 = 480000 пикселей, так как глубина цвета 24 , 480000 * 24 = 11520000 бит, переведём 1440000 байт/1024 = 1406.25 кбайт, так как 4 страницы , 1406 * 4 = 5625 кбайт
1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
1. С сообщениями можно работать через Web интерфейс - быстрый доступ когда нужно но, ограниченный функционал и тормознутость интерфейса
2. Через протоколы POP IMAP - полный функционал, но нужно на каждое устройство ставить и настраивать клиентскую программу.
3. Через сервер Exchange. одни достоинства, но это только для корпоративной почты.
11111.11.<span>1100001 Вот как то так )</span>