Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1; k:=0;
for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный
for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.
Если нужно от 15 до 2 :
Var i:integer
Begin
i:=2
while i<=15 do begin
write(i**3,' ')
end;
end.
P.S. Если нужно от 2 до 15 :
Var a,i:integer
Begin
for i:=2 to 15 do
begin
write(i**3,' ')
end;
end.
11001110012<span> = 1∙2^</span>9+1∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0<span> = 512+256+0+0+32+16+8+0+0+1 = 825^</span>10<span> </span>
var
x, a, b, y, z: real;
begin
x := 2.5;
a := 8.7;
b := 1.8;
y := (Exp(x + 3.1) + 2) / (x + 6.1);
z := 2 * y + Tan(b) + 3;
z := (Exp((1 / 3) * Ln(a)) + z) / z;
Writeln('y = ', y, ' z = ', z)
end.
y = 31.6774892355991 z = 1.03313601798708