Question

Срочно!решить в паскаль при помощи цикла while y:= √(1+√4+√9...+√36+√49)

Answer 1

Var x: integer, y: real
BEGIN
x := 1; y := 0;
while x <= 7 do
begin
y := y+sqrt(x*x);
x := x+1;
end;
y := sqrt(y);
writeln (y);
END.

Но вообще-то по-нормальному 
y = √(1 + 2 + ... + 6 + 7)
И решается намного проще.

Answer 2

Конечно! Вот пример решения данной задачи на языке Pascal с использованием цикла while:

pascalCopy code
program SquareRootSum;

var
  n, i: integer;
  y, sum: real;

begin
  n := 7; // Количество слагаемых (от 1 до 49)

  i := 1;
  sum := 0;
  while i <= n do
  begin
    sum := sum + sqrt(i);
    i := i + 1;
  end;

  y := sqrt(1 + sum);

  writeln('y = ', y);

  readln;
end.

В этом примере переменная n задает количество слагаемых в формуле. В данном случае, мы используем значения от 1 до 49, так как сумма корней от 1 до 49 указана в формуле.

Цикл while выполняется до тех пор, пока значение переменной i не превысит n. Внутри цикла мы добавляем корень из текущего значения i к переменной sum, затем увеличиваем i на 1.

После завершения цикла, мы вычисляем значение y, как квадратный корень из суммы 1 и sum.

Затем выводим значение y на экран.