|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2009, 05:43 | #1 |
Регистрация: 18.12.2009
Сообщений: 5
|
Вычислить используя, оператор цикла for и оператор безусловного пе
Дано натуральное число n. Вычислить произведение первых n сомножителей: 1/2*3/4*5/6*...;
|
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 знаками полсе запятой. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |