<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('Количество элементов в массиве:');
var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);
a.Println
end.
<h3>Количество элементов в массиве: 13</h3><h3>3 1 7 1 11 1 15 1 19 1 23 1 27</h3>
1000110010 в двоичной системе.
Канал связи – понятие не только физическое, но и логическое. Он подразумевает не только наличие физической линии связи, но и наличие логической договорённости о её использовании (такие договорённости называются протоколами).
import math
def a(): # задача А
x = float(input('x = '))
y = float(input('y = '))
if x <= 2 and y <= x and 4 <= (x * x + y * y):
print('Yes!')
else:
print('No!')
a()
def b(): # задача Б
x = float(input('x = '))
y = float(input('y = '))
if (x >= 0) and (x <= math.pi) and (y <= math.sin(x)) and (y <= 0.5):
print('Yes!')
else:
print('No!')
b()
def c(): # задача В
x = float(input('x = '))
y = float(input('y = '))
if (y <= (2 - x * x)) and ((y >= x) or (x >= 0)):
print('Yes!')
else:
print('No!')
c()