N это элементы массива
Раньше с паскалем не работал, но думаю что верно
for i:=1 to n then begin
if a [i] mod 2 = 0 then
writeIn(a[i]);
end
end;
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
1. Загнать два вагона в тупик, оставшийся вагон с тепловозом прогнать дальше по путям. 2. Грузовой состав проезжает тупик, сдает назад, цепляет эти вагоны в хвост состава, вытягивает их на пути и сдает назад на исходную позицию. 3. Тепловоз с оставшимся вагоном уходит в тупик. 4. Грузовой состав бросает прицепленные вагоны и дает ходу. 5. Тепловоз с вагоном выезжает из тупика и подбирает свои вагоны.
4-х цветное кажется это 2 бита, 10*10 это 100.
2*100=200битов=25байтов
" из 2056 символов в кодировке Unicode " это уже 2кб * 2-3 байта, в зависимости от ПК.
Конечно текст раз в сто больше рисунка.