Задание 1.
Если нужна прога, то выводы и объявления сама накидай. А так: <span>Y:= sqrt(abs(2*sqr(x) - 7*x) + 12)
Задание 2.
На картинке не видно ни черта.
Задание 3.
s:=1;
for i = 1 to 2*n do
s = s*2
Задание 4.
for i = 1 to 20
s:=a(i)+a(i+1)
вне цикла
s:=s/20
Задание 5 - черт знает. С матрицами в Паскале не работал, да и как-то не хочется. Программы могут работать криво: закарючки расставь, пожалуйста, сама, я редко программирую в Паскале.</span>
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
У меня получилось 1 решение при 001
_______________
Использовать Чертежник
алг
нач
вещ x
x := -1
<em> | 3x+2y-4=0
</em>
<em> | 2y=4-3x
</em>
<em> | y=2-1.5x
</em>
сместиться в точку (-1, 2 - 1.5 * (-1))
опустить перо
нц пока (x <= 3)
сместиться в точку(x, 2 - 1.5 * x)
x := x + 0.25
кц
поднять перо
<span>кон</span>