Program qq;varx,y,s,x1,x2,y1,e:real;i,c:integer;beginwriteln('введите х ');read(x);writeln('введите y ');read(y);s:=1;x1:=cos(x);x2:=sin(x);y1:=cos(y);e:=((x1/x2)+(x1-y1));c:=trunc(e);for i:= 1 to c do begins:=s*(1-tan(x));end;writeln(s);end.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var f:=MatrRandom(2,3,-99,99); f.Println(8); Writeln(8*f.ColCount*'-'); var s:=f.Row(1).Sum; Writeln('Сумма по 2й строке равна ',s); Writeln('*** Полученный массив ***'); f.SetCol(2,f.Col(2).Select(t->t*s).ToArray); f.Println(8) end.
