Question

Напишите программу на Паскале (цикл)

Answer 1

var i: integer;

s: real;

begin

for i:=33 downto 1 do

s:=sqrt(s+i*3);

write(s);

end.