Вычислить значение арифметического выражения

@msk19 · Регистрация: 16.11.2015

Вычислить значение арифметического выражения: $https://www.cyberforum.ru/cgi-bin/latex.cgi?R=\sqrt{98+\sqrt{95+\sqrt{92+...\sqrt{5+\sqrt{2}}}}}$

Pascal

var r,a:real;
begin
r:=sqrt(2);
a:=5;
while a<=98 do
  begin
      r:=sqrt(a+r);
      a:=a+3;
  end;
  writeln('R=',r);
end.

Правильная ли программа?

@Puporev · 29.11.2015, 19:18

Правильная.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.11.2015, 19:18	2
	Правильная. 1