// 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.58977
x=-2 y=4.83205
x=-1 y=2.19523
x= 0 y=1.48324
x= 1 y=2.30931
x= 2 y=5.00000
x= 3 y=9.78019
x= 4 y=16.63671
x= 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<br> else
if x>4 then y:=2*x-1
else y:=x+5;
Writeln('x=',x:2,' y=',y:3)
end
end.
Результат
x=-7 y=-21
x=-6 y=-18
x=-5 y=-15
x=-4 y= 1
x=-3 y= 2
x=-2 y= 3
x=-1 y= 4
x= 0 y= 5
x= 1 y= 6
x= 2 y= 7
x= 3 y= 8
x= 4 y= 9
x= 5 y= 9
x= 6 y= 11
x= 7 y= 13
x= 8 y= 15