Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.10.2008, 20:33   #1
volody08
 
Регистрация: 13.10.2008
Сообщений: 6
Печаль Y=sin1+sin2+sin3+...sinN, N=15

Три задачи ?
1). Знайти суму цілих додатних непарних чисел менше 50
2). Знайти суму цілих додатних ,більших 20,менших 100 і кратним 3
3). Y=sin1+sin2+sin3+...sinN,якщо N=15
Помогите плиззззз !!!!!!!!
volody08 вне форума Ответить с цитированием
Старый 15.10.2008, 23:24   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Переводчик с украинского на русский
1) "непарних" - это как? Простых наверное?
2)
Код:
var
  i, s: word;
begin
  s := 0;
  for i := 21 to 99 do
  if i mod 3 = 0 then s := s + i;
  writeln('s = ', s);
  readln
end.
3)
Код:
var
  i: byte;
  y: real;
begin
  y := 0;
  for i := 1 to 15 do y := y + sin(i);
  writeln('y = ', y:0:5);
  readln
end.
eoln вне форума Ответить с цитированием
Старый 15.10.2008, 23:43   #3
volody08
 
Регистрация: 13.10.2008
Сообщений: 6
Хорошо

Спосибо !!!!!
volody08 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск