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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2015, 01:04   #1
Volkod
 
Регистрация: 07.11.2015
Сообщений: 5
По умолчанию Сделайте пожалуйста код

Вот выражение его надо закодить умоляю кто понимает помогите
Изображения
Тип файла: jpg 1e3avC91jb4.jpg (4.6 Кб, 78 просмотров)
Volkod вне форума Ответить с цитированием
Старый 12.11.2015, 09:50   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Хм...
Код:
var i:integer; pipi:Double;
begin
  i:=1; pipi:=1; while i<10 do begin
    pipi:=pipi*(i+1)/i;   inc(i);
    pipi:=pipi*(i/(i+1)); inc(i);
  end;
  Write(pipi);
end;
Окке-е-е-й?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделайте, пожалуйста прогу!!!! Оч оч надо BeaU Паскаль, Turbo Pascal, PascalABC.NET 3 06.06.2009 18:40
Сделайте, мне, пожалуйста, задачку на условный оператор BeaU Паскаль, Turbo Pascal, PascalABC.NET 2 03.06.2009 17:35
задача на цикл с условием . сделайте пожалуйста LIL_VAdiK Помощь студентам 1 03.02.2009 19:31
Сделайте мне пожалуйста прграммки.(С++) stalkerrr Помощь студентам 3 23.12.2008 18:34