Не знаю какой конкретно язык нужен (напишу в общих чертах)
A - массив
нужно лишь одно условие
for i=1 to 12 do
if A[i]>A[i+1] then print A[i+1]
Var m,n,h,i:longint;begin read(n); h:=2017-1985; h:=h+1; for i:=1 to h do begin m:=n div 100; m:=m * 3; n:=n+m; end; writeln(n);end.
Пусть 1-прибавить 1,а 2- умножить на 2
11122212
Program n1;
var x,y:real;
begin
writeln('введите x ');
readln(x);
y:=(abs(sqr(x)+3*x)-4)/(sqrt(sqr(x)-5));
writeln('ответ : ',y);
<span>end.
program n2;
var s1,s2,V,a:real;
begin
writeln('введите длину ребра куба ');
readln(a);
s1:=a*a;
writeln('площадь грани = ',s1);
s2:=(a*a)*6;
writeln('площадь полной поверхности = ',s2);
V:=a*a*a;
writeln('объём куба = ',V);
end.</span>
Program HelloWorld;var x,y:double;begin x:=12; if(x<0) then y:=1/(x*x) else y:=x/6; writeln(y:0:2);end.