. В от­ве­те за­пи­ши­те по­сле­до­ва­тель­ность букв без за­пя­тых и дру­гих зна­ков препинания. ответ:

1 задание

16:8=2

22:2 =11

11-2=9

ищем то слово где 9 символом

и это в Соликамск

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln;

 var vc := ArrGen(n, i -> i);

 var vr := ArrGen(m div 2, i -> 2 * i + 1);

 a.MatrSlice(vr, vc).Println(4)

end.

Замечание: Если компилятор на распознает MatrSlice, следует обновить его версию хотя бы до 3.5.1.2250 от 14.09.19.

Если Вы не имеет такой возможности, используйте альтернативный вариант, но в этом случае будет утрачено "красивое" форматирование результата.

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln;

 foreach var i in Range(1, m -1, 2) do

   a.Row(i).Println;

end.

Объяснение:

1.

program line_AB;

uses crt;

var L, xa, xb, ya, yb:real;

begin

WriteLn('Найдем длину отрезка АВ по координатам его крайних точек' );

Writeln('Введите координаты точки A');

Write('x = ');ReadLn(xa);

Write('y = ');ReadLn(ya);

Writeln('Введите координаты точки B');

Write('x = ');ReadLn(xb);

Write('y = ');ReadLn(yb);

L:=sqrt(sqr(xb-xa)+sqr(yb-ya));

Write('Длина отрезка AB равна ', L);

readln;

end.

2.

program MultDrob;

uses crt;

var z, mult:real; i, L:Integer;

begin

Write('Введите Z = ');ReadLn(z);

Write('Введите L = ');ReadLn(l);

mult:=z+5/(10);

for i:=1 to l do

mult:=mult*(z+5/(10+i)) ;

Write('Произведение дробей z+5/[10..L] равно ', mult);

readln;

end.

3.

program MultMass;

uses crt;

var A:array[1..10] of real; mult:real; i:Integer;

begin

Randomize;

for i:=1 to 10 do begin

a[i]:=Random(10);

write(a[i]:7:2) end;

WriteLn;

mult:=1;

for i:=2 to 10 do

if a[i] > a[1] then mult:=mult*a[i] ;

if mult>1 then Write('Произведение элементов болших первого равно ',mult)

else Write('Произведение элементов болших первого равно ' ,0);

readln;

end.