Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n

@Niva · Регистрация: 05.12.2011

Студворк — интернет-сервис помощи студентам

2. Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n

@Neploxoy · 04.11.2012, 00:30

Pascal

uses crt;
var n:i integer;
k,c,s:real;
q:stribg;
begin
writeln('BBeguTe n ');
readln(n);
k:=1;
c:=0;
s:=0;
for i:=1 to n do 
begin
c:c+cos(i);
s:=s+sin(i);
k:=k*(c/s);
end;
writeln('Результат=',k:0:5);
writeln('Для выхода нажмите q');
readln(q);
until q='q';
end.

И можно вопросик? Ты где учишься?)

@Erishkrisis · 17.11.2021, 07:36

end.

@Constantin Cat · 20.11.2021, 16:38

Сообщение от Erishkrisis

end.

? Вы о чем?
В коде repeat - нехватает. Тем более теме 100 лет в обед.

@Niva 1 / 1 / 0 Регистрация: 05.12.2011 Сообщений: 10
		1
	Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n 17.12.2011, 15:45. Показов 28626. Ответов 3 Метки нет (Все метки) 2. Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n 1

@Erishkrisis 0 / 0 / 0 Регистрация: 14.06.2021 Сообщений: 1
	17.11.2021, 07:36	3
	end. 0

@Constantin Cat 3405 / 1824 / 489 Регистрация: 28.02.2015 Сообщений: 3,699
	20.11.2021, 16:38	4
	Сообщение от Erishkrisis end. ? Вы о чем? В коде repeat - нехватает. Тем более теме 100 лет в обед. 0

Опции темы

Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n

Решение