PascalABC
Объяснение:
1)
begin
WriteLn('Введите размер массива N: ');
var n := ReadInteger;;
var a := ArrRandomInteger(n, -20, 20);
a.PrintLn;
WriteLn('Сумма элементов, которые оканчиваются на число 2, равна ', a.Where(x -> (x mod 10 = 2) or (x mod 10 = -2)).Sum);
end.
2)
begin
var a := ArrRandomInteger(10, -10, 10);
a.PrintLn;
WriteLn('Индексы отрицательных нечетных элементов:');
foreach var i in a.Indices do
if (a[i].IsOdd) and (a[i] < 0) then Write(i, ', ');
end.
program название;
var a, b, s, p:integer;
begin
writeln ('Введите число a');
readln (a);
writeln ('Введите число b');
readln (b);
s:=a+b;
p:=a*b;
writeln ('Сумма чисел равна:', s);
writeln (Произведение чисел равно:', p);
end.
Объяснение:
/ - деление.
* - умножение.
sqrt - квадратный корень (всё что будет в корне заключается в скобки).
sqr - квадрат (всё что возводится в квадрат заключается в скобки).
В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).
Переменной s присваивается сумма переменных a и b.
Переменной p присваивается произведение переменных a и b.
Затем, выводится ответ.
x = 13
for n in range(1,x+1):
size = 0.5*n+4
print("x("+ str(n)+") = 1/2 * "+str(n)+" + 4 = "+str(size))
print("")
x = 10
result=0
for i in range(1,x+1):
suma = 2*pow(i,2)-7
result += suma
print("x("+ str(i)+") = 2 * "+str(i)+"^2 -7 = "+str(suma))
print("Suma = "+str(result))
Там де 4 полуси - ето чотири пробели