1)program wk;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(x*x*x)/3+(x*x*x*x*x)/5;
Writeln('y =',y)
end.
2)program wk2;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x/2- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program wk3;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program wk4;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+Abs(x*x*x*x-x*x*x*x*x);
Writeln('y =',y)
end.
Рот.рак.еда.тор.док.кот .
Нужный язык программирования не указан. Наверное, тебе подойдет Си :с
int n, tmp; <em>// переменные для длины массива и временная</em>
int count = 0; <em>// переменная-счетчик для количества перестановок</em>
scanf_s("%d", &n;) <em>// считываем количество элементов в массиве</em>
int arr[n]; <em>// объявляем массив из n элементов</em>
for (int i = 0; i < n; i++) { <em>// формируем массив</em>
scanf_s("%d", arr[i]);
}
for (int i = 0; i < n; i++) { <em>// сравниваем два соседних элемента (j и j+1)</em>
for (int j = 0; j < n - i - 1; j++) {
if (arr[j] > arr[j + 1]) { <em> // свапаем элементы местами, если порядок неверный через временную переменную</em>
tmp = arr[j];
arr[j] = arr[j + 1];
arr[j + 1] = tmp;
count++; <em>// увеличиваем счетчик перестановок</em>
}
}
}
ptintf("%d", count); <em> //выводим количество перестановок</em>
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO
var
a: <em>real</em>;
h, m: <em>byte</em>;
begin
readln(a);
a := a * 6;
h := trunc(a / 60);
m := trunc(a - h * 60);
writeln(String.Format('{0}:{1}', h, m));
<span>end.</span>