Вот значения при которых мы получим такой ответ:
9 10 11 12 13 14 15 16 17 18 19 20
Наибольшее = 20.
Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000
и выводя все значения. Ибо нету времени разбираться... Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это :)
Вот пример того как я это нашел, хоть медот и тупой, но он работает:
var k, i,max,m : longint;
function f(n: longint): longint;
begin f := n * n * n;
end;
function g(n: longint): longint;
begin g := 3*n + 3;
end;
begin i := 1;
for k:=0 to 1000000 do begin
while f(i) < g(k) do i := i+1;
if i=4 then writeln(k);
end;
end.
var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
Вы ввели число: 10100112 в двоичной системе счисления и
хотите перевести его в десятичную.
Для этого переведем его сначала в десятичную вот так :
10100112 = 1∙26+0∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 64+0+16+0+0+2+1 = 8310
Получилось: <span>8310</span>
Результат перевода:
<span>10100112 = 8310 </span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
var (imax,imin):=(a.IndexMax,a.LastIndexMin);
Swap(a[imin],a[imax]); a.Println
end.
<u>Пример</u>
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5