Тема
:
Microsoft прекращает продажи Windows XP
Показать сообщение отдельно
04.02.2010, 00:19
#
18
(
permalink
)
Dobrinya
Member
Регистрация: 12.08.2008
Сообщений: 434
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
10
если паскаль, то вот код
var k,n: longint;
y:real;
begin
read(n);
y:=0;
for k:=1 to n do
y:=sin(3,14*k);
write (y);
end.
хотя если k меняется от 1 до n, то мож надо сумму синусов найти????
если да, то вместо y:=sin(3,14*k) вставьте y:= y+sin(3,14*k)
Dobrinya
Посмотреть профиль
Отправить личное сообщение для Dobrinya
Найти ещё сообщения от Dobrinya
Ads
Яндекс
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
55070