Показать сообщение отдельно
Старый 04.02.2010, 00:19   #18 (permalink)
Dobrinya
Member
 
Аватар для Dobrinya
 
Регистрация: 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 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070