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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2009, 05:43   #1
Knubbe
 
Регистрация: 18.12.2009
Сообщений: 5
По умолчанию Вычислить используя, оператор цикла for и оператор безусловного пе

Дано натуральное число n. Вычислить произведение первых n сомножителей: 1/2*3/4*5/6*...;
Knubbe вне форума Ответить с цитированием
Старый 18.12.2009, 10:24   #2
Анатоль
Пользователь
 
Регистрация: 17.12.2009
Сообщений: 74
По умолчанию

program xernia;
var
s,j : real;
i,n : longint;
begin
read(n);
j := 1;
s := 1;
for i := 1 to n do
begin
s := s*(j/j+1);
j := j+2;
end;
write(s:0:5);
end.
выводит с 5 знаками полсе запятой.
Анатоль вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal. решить задачу используя цикл for и оператор безусловного перехода goto Knubbe Помощь студентам 8 18.12.2009 03:08
создать одномерный массив вещественных чисел C(12) используя оператор цикла с постусловием Alex61 Помощь студентам 4 15.06.2009 19:11
используя оператор цикла и графики , составте программу для рисования на экране рисунка maksu6ka2009 Паскаль, Turbo Pascal, PascalABC.NET 3 25.04.2009 13:08
Оператор цикла с предусловием While. Оператор цикла с пост условием Repeat McMilin Помощь студентам 7 11.11.2007 14:10
Оператор безусловного перехода Смирнов Алексей Паскаль, Turbo Pascal, PascalABC.NET 3 16.10.2007 19:37