Import random
def solver():
while True:
key = random.randint(1,1000)
n = input('Введите начало множества: ')
m = input('Введите конец множества: ')
if m <= n or m<= 0 or n <= 0:
return False
if key in range(n,m):
print('YES')
print('число в диапазоне %i - %i' %(n,m))
else:
print('NO')
solver()
<span><u>1</u>)function test:real; - <u>ВЕРНО</u>
<u>2</u>)function tan (angle:real):real; - <u>ВЕРНО</u>
3)function sign( a, b:integer); - НЕВЕРНО, не определен тип возвращаемого значения
4)function sign(write: integer): integer - НЕВЕРНО, в конце нет точки с запятой
Программа напечатает:
<u>12</u>
Объяснение:
</span>Процедура Exchange задумана, как обменивающая местами значения своих параметров. Но из-за отсутствия в заголовке var, она не вернет в вызвавшую программу новые значения, поэтому х и у останутся без изменения. Так они и будут выведены.
1) i=2, 2<9, A=2*i=4, i=i+2=4
2) i=4, 4<9, A=2*i=8, i=i+2=6
3) i=6, 6<9, A=2*i=12, i=i+2=8
4) i=8, 8<9, A=2*i=16, i=i+2=10
5) i=10, 10<9 (не выполн.)
ответ: А=16
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32