Ответ:
перо Сместиться в точку (1,7) Сместиться в точку (1,5) Поднять перо Сместиться на вектор (0,-2) Опустить перо Сместиться на вектор (2,0) Сместиться в точку (3,5) Сместиться на вектор (-2,0) Поднять перо Сместиться в точку (4,5) Опустить перо Сместиться на вектор (2,0) Поднять перо Сместиться в точку (5,6) Опустить перо Сместиться в точку (5,4) Поднять перо Сместиться в точку (7,3) Опустить перо Сместиться на вектор (2,0) Сместиться на вектор (0,4) Сместиться в точку (7,7) Сместиться в точку (7,5) Сместиться в точку (9,5) Поднять перо В ответе укажите только число, без пробелов и каких-либо знаков препинания, например 100 Ответ: ____________
Объяснение:
Если -128 то митус это 1 байт и 128 это 7 байт помоему
если минус не считать то просто 7
На вкладке Главная<span> щелкни раскрывающийся список в поле </span>Числовой<span>, выбери пункт </span>Другие числовые форматы<span> и открой вкладку </span>Число<span>.
</span>В поле Числовые форматы<span> выдели пункт </span>(все форматы)<span> и в поле </span>Тип<span> введите значение </span>дддд<span>, чтобы отображались полные названия дней недели (понедельник, вторник и т. д.), либо </span>ддд<span>, чтобы отображались сокращенные названия (Пн, Вт, Ср и т. д.).</span>
1)
const n=<u>?</u>; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
s:=0;
k:=0;
for i:=1 to n do
begin
s:=s+a[i];
k:=k+1;
end;
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
readln;
End.
2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if (i mod 2)=0 then
if a[i]>max then
max:=a[i];
for i:=1 to n do
if (i mod 2)<>0 then
if a[i]<min then
min:=a[i];
writeln('max=',max);
writeln('min=',min);
readln;
End.
<u><em>Текст модуля (Free Pascal):</em></u>
unit MyLib;
interface
procedure MinDigit(n:longint;var md:byte);
implementation
procedure MinDigit(n:longint;var md:byte);
var
d:byte;
begin
md:=10;
while n>0 do begin
d:=n mod 10;
if d<md then md:=d;
n:=n div 10
end
end;
begin
end.
<em><u>Тестовая программа:</u></em>
uses
Crt, MyLib;
var
p:byte;
begin
ClrScr;
MinDigit(45134,p);
Writeln('p=',p);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
p=1