Задание 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>
В ячейке a1 окажется формула = b1+1
в ячейке b1 окажется формула = c1+1
в ячейке c1 окажется формула = d1+1
в ячейке a2 окажется формула = b2+1
в ячейке b2 окажется формула = c2+1
в ячейке c2 окажется формула = d2+1
в ячейке a3 окажется формула = b3+1
в ячейке b3 окажется формула = c3+1
в ячейке c3 окажется формула = d3+1
если в ячейках d1 d2 d3 были нули то в результате получится такая табличка в ячейках <span>(A1:C3)</span>
3 2 1
3 2 1
3 2 1
Ответ:
PascalВыделить код
1
prorgam sp;
2
var A: array [1..10] of integer;
3
I,S: integer;
4
begin I:=0;
5
for I:=1 to 10 do S:=S+A[I];
6
writeln ('summa=',S);
7
end
Объяснение:
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, -22, 33);
a.Println;
a.Transform(t -> t > 0 ? 1 : t);
a.Println
end.
<h2>Пример</h2><h3>-16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1</h3><h3>-16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1</h3>
Што нужно зделать ? я не понимаю
