<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=ArrRandomInteger(ReadInteger('n->'),-100,100); a.Println;
Println('Сумма=',Range(0,a.Length-1,2).Aggregate(0,(s,z)->s+a[z]));
end.
Пример:
n-> 4
-63 28 -56 -1
Сумма= -119
отправьте все решения которые сделали пж за 9 и 10 класс по информатике по братский
X=√16=4
y=8 в квадрате = 64
x=4+1=5
y=64+5=69
Var i, n: integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod 10 + i div 10 = n) then
write(i, ' ')
end.
Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.