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.
Другие языки программирования и технологии
Помогите решить задачку в паскале на циклы. Вычисоить: y=cos(1+cos(2+...+cos(39+cos40)...))
function yx(i integer)
begin
if (i < 41 ) yx:=cos(i +yx(i+1));
end;
begin
if (i < 41 ) yx:=cos(i +yx(i+1));
end;
y:=0;
for i:=40 downto 1 to y:=cos(i+y);
for i:=40 downto 1 to y:=cos(i+y);
Вот http:// tp7. info убери пробел
Похожие вопросы
- Люди помогите решить задачку!!!на паскале
- Помогите решить задачку в паскале!!!
- Помогите пожалуйста решить задачку на паскале! (циклы с параметром)!!за ранее спасибо!
- Помогите, пожалуйста, решить задачку на паскале. Заранее благодарна.
- Помогите простенькие задачки по паскалю решить??)
- Знатоки Турбо Паскаля, помогите решить задачки для 7-го класса. Дочке очень нужно.
- помогите решить задачку по информатике на паскале. найти минимальный и максимальный элемент двухмерного массива
- помогите решить задачку, как её писать в паскале?
- Помогите решить задачку по программированию в Паскале!
- помогите решить плз! Программирование, Паскаль. Множества. прозьба без наворотов... Циклы, иф, подпрограммы, строки, множе