Лучшее решение и благодарность.
var n, x, y, i:real;
begin
read (n, x, y);
if n>=x/2+y then write (''Хватит',' ') else write ('Не хватит');
<span>end.</span>
1.Каждый графический примитив рисуется в своем слое, поэтому рисунки состоят из множества слоев.Существует возможность изменения видимости объектов путем изменения порядка размещения их слоев на рисунке. Для этого используются операции изменения порядка, которые позволяют перемещать выделенный объект на передний план (в самый верхний слой рисунка) или на задний план (самый нижний слой рисунка), а также на один слой вперед или назад.
2. В какой программе? Формулируйте вопросы правильнее...В CorelDraw, например, это нужно чтобы не по отдельности объекты тягать или обрабатывать, а целиком!
var A:array[1..100000] of integer; i,k,i1,n:int64;
begin
read(n);
randomize;
for i:=1 to n do
A[i]:=random(2);
writeln('Массив до переформировки:');
for i:=1 to n do
write(A[i],' ');
writeln;
for i1:= 1 to n do
for i:=1 to n-1 do
if A[i]>A[i+1] then begin k:=A[i]; A[i]:=A[i+1]; A[i+1]:=k; end;
writeln('Массив после переформировки:');
for i:=1 to n do
write(A[i],' ');
end.
1.В.
2.С.
3.В
4.А
а дальше наугад)))
1) 40×40=1,600 (симв.) - на одной стр
2) 1,600×64=102,400 (симв.) - во всей статье
8 бит = 1 байт
3) 102,400×1=102,400 (байт) - размер статьи
Ответ: 102,400 байт