Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 23.06.2008, 12:00   #1
Till
 
Регистрация: 23.06.2008
Сообщений: 8
Восклицание Помогите составить задачку

Люди, помогите составить задачу, очень нужно.
вот эта задача:
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.jpg
Просмотров: 135
Размер:	10.1 Кб
ID:	4510  
Till вне форума   Ответить с цитированием
Старый 23.06.2008, 12:54   #2
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

Код:
var n: integer;
    k: integer;
    sum, znam: real;

begin
write('n: ');
readln(n);
sum := 0;
znam := 1;
for k := 1 to n do
  begin
  znam := -znam / k;
  sum := sum + (k+1) * znam;
  end;
writeln(sum:0:6);
end.
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума   Ответить с цитированием
Старый 23.06.2008, 13:01   #3
Till
 
Регистрация: 23.06.2008
Сообщений: 8
Хорошо

Цитата:
Сообщение от Greblin Посмотреть сообщение
Код:
var n: integer;
    k: integer;
    sum, znam: real;

begin
write('n: ');
readln(n);
sum := 0;
znam := 1;
for k := 1 to n do
  begin
  znam := -znam / k;
  sum := sum + (k+1) * znam;
  end;
writeln(sum:0:6);
end.
огромное спасибо!!!!!
Till вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачку. [Pr1_Zr4k] Помощь студентам 4 10.10.2009 17:52
Помогите решить задачку rainbow1 Паскаль, Turbo Pascal, PascalABC.NET 1 28.08.2008 16:59
помогите решить задачку gorez Паскаль, Turbo Pascal, PascalABC.NET 10 08.04.2008 14:49
Помогите решить эту задачку Magic Blood Microsoft Office Excel 1 16.05.2007 18:17
Помогите решить задачку New БД в Delphi 3 12.12.2006 20:46


04:58.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.