104−(103)+102−(101)+…+2−(1) <span>= 52
Максимальное число получится при перестановке максимального значения после знака "-" и минимального значения после знака "+":
</span><span>104−(2)+102−(101)+…+103−(1) </span> = 52+2*103-2*2 = 254
Подробное решение внутри файла
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger('Введите число элементов');
var k:=ReadInteger('Введите число k');
var a:=ArrRandom(n,10,99);
a.Println;
for var i:=0 to n-1 do
if a[i] mod k =0 then println('Кратно',k,a[i]);
end.
Из данного предложения?Если да,значит Вансар.Потому что кличка собаки является именем собственным.
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)