питон написать программу :даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее-их удвоенным произведением.​

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

режим разметки страницы,режим структуры,режим чтения.режим веб документа-

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

пусть х(мин)-потратела времени на выполнение д/з вчера

имеем уравнение:

х+х-10=60

2х=60+10

2х=70

х=70/2

х=35

35(мин)-потратела времени на выполнение д/з вчера