Ответьте на вопросы 1.в абсолютной ссылке при копировании может измениться номер строки. да нет 2.диаграммы, построенные в excel, автоматически перестраиваются при изменении исходных данных. да нет 3.существует ячейка с адресом 27ab.да нет 4.существует ячейка с адресом aaa111.да нет 5.диапазон ячеек b8: f10 содержит 15 ячеек. да нет 6.если скопировать формулу =d4+f3 на две ячейки вправо, она примет вид =b4+d3да нет

1.

var n1,n2,n3: integer;

begin

writeln('Введите n1,n2,n3: ');

readln(n1,n2,n3);

if (n2<n1) then swap(n2,n1);

if (n3<n1) then swap(n3,n1);

if (n3<n2) then swap(n3,n2);

writeln('n1,n2,n3 в возрастающем порядке: ',

n1,' ',n2,' ',n3);

end.

2.

var a,b,c: integer;

var s: real;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

s:=(a-b-c)/(sqrt(a*b*c));

writeln(s);

end.

3.

var a,b,c: integer;

var s: real;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

s:=(a+b+c)/3;

writeln('Среднее арифметическое: ',s);

end.

4.

var a,b: integer;

var s: real;

begin

writeln('Введите a,b: ');

readln(a,b);

if ((a>0) and (b>0)) then s:=a+b

else s:=a*a-b*b;

writeln(s);

end.

Var   s,s1: string;   i,n: integer; begin   write('введите строку: '); readln(s);   s1: ='';   for i: =1 to length(s) do s1: =s1+s[i]+s[i];   n: =length(s1);   i: =n-(n mod 4);   while i> =4 do begin       delete(s1,i,1);       i: =i-4       end;   for i: =length(s1) downto 1 do write(s1[i]);   writeln end. примеры введите строку: слово оовоолсс введите строку: 123456789 99877655433211