Вариант 3.
1. Написать программу вычисления функции Y=x^2+sqrt(11+x/5+2x^2) для x∈[-3; 5]. Результат вывести в виде x=... y=...
2. Составить программу для нахожения M=S:14, где S - сумма всех двузначных чисел, кратных 5. Y= система 3x при x<=-5, x+5 при -5< x <= 4, 2x-1 при x>4.
3. для чисел от -7 до 8

1.var x:integer;beginfor x:=-3 to 5 do  writeln('x = ',x:2,' y = ',x*x+sqrt((11+x)/(5+2*x*x)):6:4);end.Результат:x = -3 y = 9.5898x = -2 y = 4.8321x = -1 y = 2.1952x = 0 y = 1.4832x = 1 y = 2.3093x = 2 y = 5.0000x = 3 y = 9.7802x = 4 y = 16.6367x = 5 y = 25.53942.var i,s:integer;begins:=0;for i:=10 to 95 do if i mod 5=0 then s:=s+i;writeln('M = ',s/14:5:2);end.Результат:M = 67.503.var x,y:integer;beginfor x:=-7 to 8 do begin if x<=5 then y:=3*x  else if x<=4 then y:=x+5   else y:=2*x-1; writeln('x = ',x:2,' y = ',y); end;end.Результат:x = -7 y = -21x = -6 y = -18x = -5 y = -15x = -4 y = -12x = -3 y = -9x = -2 y = -6x = -1 y = -3x = 0 y = 0x = 1 y = 3x = 2 y = 6x = 3 y = 9x = 4 y = 12x = 5 y = 15x = 6 y = 11x = 7 y = 13x = 8 y = 15

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin  for var x:=-3 to 5 do    Writeln('x=',x:2,'  y=',x*x+Sqrt((11+x)/(5+2*x*x)):0:5)end.Результатx=-3  y=9.58977x=-2  y=4.83205x=-1  y=2.19523x= 0  y=1.48324x= 1  y=2.30931x= 2  y=5.00000x= 3  y=9.78019x= 4  y=16.63671x= 5  y=25.53936----------------------------------------begin  var M:=Range(10,99,5).Sum/14;  Writeln('M=',M)end.РезультатM=67.5----------------------------------------begin  var y:integer;  for var x:=-7 to 8 do begin    if x<=-5 then y:=3*x    else      if x>4 then y:=2*x-1      else y:=x+5;    Writeln('x=',x:2,'  y=',y:3)    endend.Результатx=-7  y=-21x=-6  y=-18x=-5  y=-15x=-4  y=  1x=-3  y=  2x=-2  y=  3x=-1  y=  4x= 0  y=  5x= 1  y=  6x= 2  y=  7x= 3  y=  8x= 4  y=  9x= 5  y=  9x= 6  y= 11x= 7  y= 13x= 8  y= 15