<span>Вы идете по дороге в Типперери и доходите до развилки. Там вы встречаете двух человек. Вам известно, что один из них всегда говорит правду, а другой всегда лжет. Но вы не знаете, кто именно лжец, а кто правдолюбец. Чтобы узнать дорогу, вы можете задать только один вопрос только одному человеку. Какой это должен быть вопрос? -ДЕДУКЦИЯ
</span>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var c:=ArrRandomReal(12,-10,70).Println();
write(c.Where(x->(x>5.3) and (x<40.7)).Aggregate(Real(1),(x,y)->x*y));
end.
Import random
a=int(input())
b=int(input())
arr=[]
for a in range(0, 5):
arr.append(random.randint(a, b))
for a in range(0, 5):
arr.append(arr[a]*arr[a])
for a in arr:
print(a)
Var a,b,c:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.
Пример:
a = 3
b = 4
c = 5