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)
var a := ArrRandomInteger(10, -10, 10);
WriteLn('Индексы отрицательных нечетных элементов:');
foreach var i in a.Indices do
if (a[i].IsOdd) and (a[i] < 0) then Write(i, ', ');
import math
a = [float(input("Input x: ")), float(input("Input y: "))]
print(a)
x = a[0]
y = a[1]
y1 = x-1
if abs(x)<=1:
y2 = math.sqrt(1-x**2)
if x>=0 and y>=y1 and y<=1:
print("Yes")
elif x>=0 and x<=1 and y<y1 and abs(y)<=y2:
else:
print("No")
if abs(x)<=1 and abs(y)<=y2:
elif x>=0 and x<=1 and y>=0 and y<=1:
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.
import math
a = [float(input("Input x: ")), float(input("Input y: "))]
print(a)
x = a[0]
y = a[1]
y1 = x-1
if abs(x)<=1:
y2 = math.sqrt(1-x**2)
if x>=0 and y>=y1 and y<=1:
print("Yes")
elif x>=0 and x<=1 and y<y1 and abs(y)<=y2:
print("Yes")
else:
print("No")
a = [float(input("Input x: ")), float(input("Input y: "))]
print(a)
x = a[0]
y = a[1]
if abs(x)<=1:
y2 = math.sqrt(1-x**2)
if abs(x)<=1 and abs(y)<=y2:
print("Yes")
elif x>=0 and x<=1 and y>=0 and y<=1:
print("Yes")
else:
print("No")
Объяснение: