Input A,B
if a>b then print a-b else print a+b
end
Type mas=array of integer;
procedure revers(var a:mas; i:integer);
begin
write(a[i],' ');
if i>0 then revers(a,i-1);
end;
var a:mas;
i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
read(a[i]);
revers(a,n-1);
end
44
У нас есть цикл, который звучит как (пока s<=250). Изначально s=15. После мы запускаем данный цикл, и в каждом шагу добавляем 12 до тех пор, пока s не станет больше 250. И во время каждого шага мы к переменной n (изначальна равна 4) прибавляем 2. В конце программы мы выводим n.
Надеюсь я понятно объяснил. Если что-то не понятно - спрашивайте.
I-память
k-количество пикселей
i-вес одного пикселя
N-палитра
---
I=k*i
N=2^i
i=I/k=1.12
округляем до 1
N=2
в палитре два цвета.
Любой один символ равен одному байту
а один байт=8 битам