Паскаль

[Hallucinogin]

составьте пожалуйста блок-схему к этой задаче, так как к сожалению у меня нет проги, на сей раз программа к задаче составлена верно


Вычислить:
Y=Cos(1+Cos(2+…+Cos(39+Cos40)…))



program nastja;
uses crt;
var y,t: real;
i:byte;
begin
clrscr;
y:=cos(40);
for i:=39 downto 1 do
y:=cos(i+y);
write(`y=`,y:0:5);
readln
end.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=105373
А вот здесь на второй странице что по вашему?

[Hallucinogin]

не заметила)) спасибо)