Разместите вычисленные значения функции y=1+sin(π/8-x) для х∈[0,2] с шагом h=0,2 в одномерный массив y). “cожмите” числовой массив, выбросив из него отрицательные числа. определите, является ли заданный массив по убыванию в pascal abc.

думаю, что 19,5 кб = 0,019 мб.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.