1) 2 * sqr(x) * x или 2 * x * x * x
2) (a + b) / (2 * a + b) * (a + c)
3) pi * sqr(R) или 3.14 * R * R
4) 1 / 2 * a * b * sin(a)
5) sqrt(sqr(x) + sqr(y)) - 1.5 * (x - 3)
6) sqrt(sqr(b) - 4 * a * c)
7) sin(x) + cos(x) - x / (x + 1)
8) sin(a) * cos(b) - cos(a) * sin(b)
9) abs(sin(x) - cos(x))
10) 7000 * (a * b / (b * y))
11) sqrt(1 - cos(2 * a))
Объяснение:
sqr(x) - квадрат числа
sqrt(x) - квадратный корень
abs(x) - модуль
sin(x) - синус
cos(x) - косинус
Выражения записываются в строчку
Допускается применение круглых скобок (скобки изменяют приоритет)
Операции выполняются в порядке приоритета
1)
var mas:array[1..7] of integer;
i:integer;
begin
writeln('Введите 7 целых чисел:');
for i:=1 to 7 do
begin
readln(mas[i]);
if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;
end;
writeln('Изменённый массив:',mas);
end.
2) var mas:array[1..9] of integer;
i,b:integer;
begin
writeln('Введите 9 целых чисел:');
for i:=1 to 9 do
begin
readln(mas[i]);
if(mas[i] <0) then b:=b+mas[i];
end;
writeln('Сумма отрицательных элементов= :',b);
end.
3) var mas:array[1..4] of integer;
i,b:integer;
begin
writeln('Введите 4 целые числа:');
b:=1;
for i:=1 to 4 do
begin
readln(mas[i]);
b:=b*mas[i];
end;
writeln('Произведение чисел= ',b);
end.