А ты не знаешь ответы по олмпиаде (географии)?
Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
Всего времени в секундах 4 * 60 +16 = 256 сек
Всего бит передано 256 * 16384 = 4 194 304 бит
количество пикселей в картинке 1024 × 512 = 524 288
сколько бит на на 1 пиксель = 4 194 304 / 524 288 = 8
Количество цветов = 2^8 = 256
Желтый красный синий вообще самые основные звета