Question

Паскаль.ПлизНаписать программу, вычисляющую значение y = корень x при x от 1 до 50 с шагом 2.

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Range(1,50,2).Tabulate(x->sqrt(x)).Println(NewLine)
end.

Результат
(1,1)
(3,1.73205080756888)
(5,2.23606797749979)
(7,2.64575131106459)
(9,3)
(11,3.3166247903554)
(13,3.60555127546399)
(15,3.87298334620742)
(17,4.12310562561766)
(19,4.35889894354067)
(21,4.58257569495584)
(23,4.79583152331272)
(25,5)
(27,5.19615242270663)
(29,5.3851648071345)
(31,5.56776436283002)
(33,5.74456264653803)
(35,5.91607978309962)
(37,6.08276253029822)
(39,6.2449979983984)
(41,6.40312423743285)
(43,6.557438524302)
(45,6.70820393249937)
(47,6.85565460040104)
(49,7)

Answer 2

Программа на языке Паскаль для вычисления значения y = корень(x) при x от 1 до 50 с шагом 2

program CalculateSquareRoot;
var
  x: integer;
  y: real;
begin
  for x := 1 to 50 step 2 do
  begin
    y := sqrt(x);
    writeln('x = ', x, ', y = ', y);
  end;
end.

В данной программе используется цикл `for` для перебора значений переменной `x` от 1 до 50 с шагом 2. В каждой итерации цикла вычисляется значение переменной `y` как корень квадратный из `x` с помощью функции `sqrt`. Затем значения `x` и `y` выводятся на экран с помощью процедуры `writeln`.

Примечание: Данная программа написана на языке Паскаль и может быть выполнена в среде разработки, поддерживающей этот язык, например, в среде Turbo Pascal или Free Pascal.