var a:array[1..10] of integer;
i,tmp:integer;
begin cls;
for i:=1 to 10 do a[i]:=i;
for i:=1 to 10 do
begin
if i mod 2 = 1 then
begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
end;
for i:=1 to 10 do
write(a[i], ' ');
end.
Ответ:
незнаю, но за то бог знает
Переводим на русский:
A или B и не C; подставляем:
Нет или да и не нет = нет или да и да.
Дальнейшее расписывание зависит от приоритета (обычно ставят приоритет И выше ИЛИ), но в любом случае получится или "нет или да", или "да и да", то есть результат - истина.
Переводим обратно на английский (интересно, при чём тут он?): true.
При использовании палитры из 65536 цветов для хранения одного пикселя требуется log(2)65536 = 16 бит. Память для хранения изображения: 78*78*16 бит = 97344 бит