Другие языки программирования и технологии

Помогите решить задачку в паскале на циклы. Вычисоить: y=cos(1+cos(2+...+cos(39+cos40)...))

program cos_calc;
var i: integer;
begin
for i := 1 to 1 do
writeln(
'cos(1 + cos(2 + cos(3 + cos(4 + cos(5 + cos(6 + cos(7 + cos(8 + cos(9 + cos(10 + cos(11 + cos(12 + cos(13 + cos(14 + cos(15 + cos(16 + cos(17
+ cos(18 + cos(19 + cos(20 + cos(21 + cos(22 + cos(23 + cos(24 + cos(25 + cos(26 + cos(27 + cos(28 + cos(29 + cos(30 + cos(31 + cos(32 + cos(
3 + cos(34 + cos(35 + cos(36 + cos(37 + cos(38 + cos(39 + cos(40 )))))))))))))))))))))))))))))))))))))))) = ',
cos(1 + cos(2 + cos(3 + cos(4 + cos(5 + cos(6 + cos(7 + cos(8 + cos(9 + cos(10 + cos(11 + cos(12 + cos(13 + cos(14 + cos(15 + cos(16 + cos(17
+ cos(18 + cos(19 + cos(20 + cos(21 + cos(22 + cos(23 + cos(24 + cos(25 + cos(26 + cos(27 + cos(28 + cos(29 + cos(30 + cos(31 + cos(32 + cos(
3 + cos(34 + cos(35 + cos(36 + cos(37 + cos(38 + cos(39 + cos(40 + ))))))))))))))))))))))))))))))))))))))))
);
end.
DG
Denis Gubarev
34 701
Лучший ответ
function yx(i integer)
begin
if (i < 41 ) yx:=cos(i +yx(i+1));
end;
Иван Заец
Иван Заец
35 594
y:=0;
for i:=40 downto 1 to y:=cos(i+y);
Хазрат .
Хазрат .
15 838
Вот http:// tp7. info убери пробел