Question

Написать программу табулирования функции y=5x-2 на отрезке х принадлежит [1;20] с шагом 2

Answer 1

begin

 var y: Func<real, real> := x -> 5 * x - 2;

 Println(' x   y(x)');

 foreach var x in range(1, 20) do

   Writeln(x:2, y(x):5)

end.