Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 25, средняя оценка - 4.76
lunatik125
4 / 4 / 0
Регистрация: 21.05.2010
Сообщений: 41
#1

Произведение n первых нечетных чисел равно p - Pascal

02.06.2010, 12:57. Просмотров 3684. Ответов 3
Метки нет (Все метки)

Произведение n первых нечетных чисел равно p. Сколько сомножителей взято? Если введенное число n не является указанным произведением, сообщить об этом.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 12:57
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Произведение n первых нечетных чисел равно p (Pascal):

Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел - Pascal
Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел. Количество чисел должно вводится во время...

Найти сумму кубов первых шести нечетных натуральных чисел - Pascal
Найти сумму кубов первых шести нечетных натуральных чисел

Написать программу,которая вычисляет сумму первых N нечетных положительных чисел - Pascal
Написать программу,которая вычисляет сумму первых N нечетных положительных чисел.Количество чисел должно вводиться во время работы...

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел. - Pascal
Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку , и вычисляет произведение нечетных...

Найти наибольший возможный НОД трех чисел, если их произведение равно 56824590636 - Pascal
Произведение трех чисел равно 56824590636. Найдите наибольший возможный НОД этих чисел.

Произведение первых n целых положительных чисел. - Pascal
Написать программу, которая вычисляет произведение первых n целых положительных чисел. Количество чисел должно вводится во время работы...

3
Puporev
Модератор
52392 / 40239 / 13577
Регистрация: 18.05.2008
Сообщений: 93,003
02.06.2010, 13:12 #2
Цитата Сообщение от lunatik125 Посмотреть сообщение
Если введенное число n не является указанным произведением, сообщить об этом.
Так n и не будет никогда произведением, разве что n=p=1.

Добавлено через 6 минут
Наверное это нужно....
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,k:byte;
    p,s:longint;
begin
clrscr;
write('Введите произведение нескольких первых нечетных натуральных чисел p=');
readln(p);
s:=1;
n:=1;
k:=1;
while s<p do
 begin
  k:=k+2;
  n:=n+1;
  s:=s*k;
 end;
if s<>p then write('Число ',p,' не является произведением первых нечетных чисел')
else write('Взято множителей - ',n);
readln
end.
1
lunatik125
4 / 4 / 0
Регистрация: 21.05.2010
Сообщений: 41
02.06.2010, 13:12  [ТС] #3
ок пусть так а прогу не поможишь написать ина4е мне практику не сдать будет !
0
Puporev
Модератор
52392 / 40239 / 13577
Регистрация: 18.05.2008
Сообщений: 93,003
02.06.2010, 13:21 #4
Цитата Сообщение от lunatik125 Посмотреть сообщение
а прогу не поможишь написать
Не-а.....
0
02.06.2010, 13:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 13:21
Привет! Вот еще темы с ответами:

Вывести таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с клавиатуры - Pascal
Задание 2. написать программу которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с...

Вычислить произведение целых нечетных чисел от t до n (t<n) - Pascal
Помогите пожалуйста решить:cry: Вычислить произведение целых нечетных чисел от t до n (t&lt;n) в цикле while

Найти произведение двузначных нечетных чисел, кратных 13 - Pascal
Всем привет! У меня ужасно не хватает времени и нужно решить задачи с помощью циклов. Я немного соображаю, но в программировании всего...

Найти произведение всех натуральных нечетных чисел от 51 до 77 - Pascal
Найти произведение всех натуральных нечетных чисел от 51 до 77


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru