это может быть число 19, так как 1+9=10 и 1*9=9, 10+9=19, может быть 29, так как 2+9=11, а 2*9=18, 11+18=29, может быть 39, так как 3+9=12, а 3*9=27, 12+27=39, так же 49, так как 4+9=13, 4*9=36, 36+13=49, еще число 59, потому что 5+9=14, а 5*9=45, 45+14=59, может быть число 69, потому что 6+9=15, а 6*9=54, сложим 54+15 и получим 69, так же подходит число 79, так как 7+9=16, а 7*9=63, 16+63=79, число 89, потому что 8+9=17, а 8*9=72, складываем и получаем 72+17+89, число 99, потому что 9+9=18, а 9*9=81, 18+81=99
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var n:=ReadInteger('n=');
var m:=18;
var a:=MatrixRandom(m,n,-999,999);
var imax:=0;
var jmax:=0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:5);
if abs(a[i,j])>abs(a[imax,jmax]) then begin
imax:=i; jmax:=j
end
end;
Writeln
end;
Writeln('Максимум по модулю А[',imax+1,',',jmax+1,
']=',a[imax,jmax])
end.
<u><em>Тестовое решение:</em></u>
n= 10
-275 257 -860 744 -263 843 8 667 425 -547
-392 635 636 -441 -64 973 201 -864 -126 -868
-764 43 -884 -667 -113 807 354 966 -155 -527
532 -790 -911 0 -303 -471 453 431 -741 -582
-121 548 -946 610 724 -426 963 -589 -591 845
-846 629 728 634 -581 681 141 807 -142 -70
-510 42 -177 -48 -80 -601 547 -364 862 -593
-480 770 876 -544 253 -312 -11 -494 -391 -687
843 -56 558 0 -681 903 -519 -545 -418 15
387 646 -427 329 928 837 -274 101 -310 325
27 327 -452 -998 325 -616 752 273 -619 731
-307 -364 199 -454 86 546 483 823 -367 17
917 92 -945 -152 19 -126 198 -453 -473 416
961 888 815 283 286 -483 -604 557 674 935
-849 207 -926 -149 -677 -248 -552 -972 -756 -617
-646 -97 -532 673 407 934 272 700 -18 -548
186 206 -253 -35 769 -196 -179 915 259 -431
151 926 -851 -302 -134 -289 19 204 -474 -732
Максимум по модулю А[11,4]=-998
Вот код программы для этой прогрессии на С# и скриншот с результатом.
float ss = 0;
float s = 1;
Console.WriteLine("Введите n");
float n = Convert.ToInt16 ( Console.ReadLine());
Console.WriteLine("---------------------------");
for (float i = 2; i <= n; i++)
{ ss = s; s -= (1 / i); Console.WriteLine(ss + "-" + 1 / i + "="+s+"\n\r"); }
Console.WriteLine("---------------------------");
Console.WriteLine("Конечный результат s = " + s);
<span> Console.ReadLine();</span>
1)program odin;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(Sqr(x)*x)/3+(Sqr(x*x)*x)/5;
Writeln('y =',y)
end.
2)program dva;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=<span>Exp(-x*Ln(2))</span>- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program tri;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program cheture;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+(Sqr(x*x)*(1-x));
Writeln('y =',y)
end.