Question

составьте программу вычисления значения выражения

Answer 1

program z1;
var y:integer;
s:real;
begin
s:=0;
for y:=7 downto 1 do
s:=sqrt(y+sqrt(s));
writeln(s);
end.