Решить! прошу нужно, сегодня ! заранее .

x=1

while x< 10:

y=(sqrt(2*x+x*x))/5

print(y)

x=x+2

Uses crt; const     n = 39; var     x: array[1..n] of integer;     i,j,k: integer; begin randomize; clrscr; k: =0; writeln('исходный массив: '); for i: = 1 to n do       begin       x[i]: =random(53)-15;       if x[i]< 30 then             begin             textcolor(12);             k: =k+1;             end       else textcolor(7);       write(x[i],' ');       end; writeln; writeln; textcolor(7); writeln('числа, меня тридцати: ',k); writeln; writeln(' массив: '); for i: = 1 to n do       for j: = 1 to n-1 do               if x[j]> x[j+1] then                     begin                     k: =x[j+1];                     x[j+1]: =x[j];                     x[j]: =k;                     end; k: =0; for i: = 1 to n do       begin       write(x[i],' ');       j: =x[i];       while j div 10 < > 0 do             j: =j div 10;       if (j = 2)or(j = -2) then             k: =k+1;       end; writeln; writeln; writeln('числа, начинающиеся с двойки: ',k); readln; end.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! function res(a: integer; op: char; b: integer): integer; begin   case op of   '+': result: =a+b;   '-': result: =a-b;   '*': result: =a*b;   '/': result: =a div b   end end; begin   var s: =readlnstring('вводите: ');   var p: =s.matches('+)|[\+\-\*\/])').toarray;   if p.count< > 5 then writeln('ошибка! ')   else begin       var op1: =p[1].value[1];       var op2: =p[3].value[1];       var a: =p[0].value.tointeger;       var b: =p[2].value.tointeger;       var c: =p[4].value.tointeger;       if (op1 in ['+','-']) and (op2 in ['*','/']) then           writeln('='+res(res(b,op2,c),op1,a))       else writeln('='+res(res(a,op1,b),op2,c))       end end. примеры вводите: -4--3--2 =1 вводите: 12*3+45 =81 вводите: 45+12*3 =81 вводите: -26/13--5 =3