Как найти произведение всех нечетных чисел

0 / 0 / 0

Регистрация: 13.09.2015

Сообщений: 13

1

29.09.2015, 00:40. Показов 4822. Ответов 5


Студворк — интернет-сервис помощи студентам

Составить и отладить программу вычисляющую Y=1*3*5… длина последовтельности вводится с клавиатуры

буду очень благодарен



0



vovachuk

13 / 13 / 18

Регистрация: 08.01.2015

Сообщений: 53

29.09.2015, 01:06

2

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Насколько я понял, условия задачи: «Найти произведение всех нечётных чисел до n» Если так, то:

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var a,i,y:longint;
begin
y:=1;
writeln('введите a');
readln(a);
for i:=1 to a do
if i mod 2 <> 0 then y:=y*i;
writeln('Y= ',y);
end.



1



JuriiMW

5056 / 2630 / 2345

Регистрация: 10.12.2014

Сообщений: 9,993

29.09.2015, 09:28

3

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

vovachuk, и снова crt !
С клавиатуры вводится длина последовательности, а не максимальное из…
Вот так правильнее:

Pascal
1
2
3
4
5
6
7
8
9
10
var
  a, i, y : Longint;
  
begin
  Write('введите a='); ReadLn(a);
  y := 1;
  for i := 2 to a do
    y := y * (i*2 - 1);
  WriteLn('Y=', y);
end.

С оговоркой: a не больше 10.



1



Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

29.09.2015, 09:46

4

Цитата
Сообщение от JuriiMW
Посмотреть сообщение

С оговоркой: a не больше 10.

Почему? Даже n! до 12, а n!! для нечетных до 21.

Добавлено через 1 минуту
Для четны до 18.



0



5056 / 2630 / 2345

Регистрация: 10.12.2014

Сообщений: 9,993

29.09.2015, 09:49

5

Puporev, сколько здесь членов 1*3*5*7*9*11*13*15*17*19*21 ?
И ещё: 1*3*5*7*9*11*13*15*17*19*21 = 13 749 310 575 — не лезет в longint



0



Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

29.09.2015, 09:55

6

Понял, не N, а длина последовательности..



0



Билал Лазарев
2 июня, 04:25


0

var

i, s : integer; / / объявляем две переменные целочисленного типа.

begin

s:=1;

for i : = 150 to 300 do / / начало цикла.

begin

if (i mod 2) > 0 then / / проверяем четность числа.

s:=s * i; / / считаем произведение, если число нечетное.

end;

writeln (‘Произведение всех нечетных чисел от 150 до 300 равно : ‘, s); / / вывод строки на экран.

end.

  • Комментировать
  • Жалоба
  • Ссылка

Не уверен в ответе?

Найди верный ответ на вопрос ✅ «Найти произведение всех нечетных чисел от числа «а» до числа «b» …» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.

Искать другие ответы

тема:

Дайте вам n целых чисел и найдите произведение всех нечетных чисел в них.

Input

Входные данные содержат несколько тестовых экземпляров. Каждый тестовый экземпляр занимает одну строку. Первое число каждой строки равно n, что означает, что в этой группе есть n данных, за которыми следуют n целых чисел. Можно предположить, что в каждой группе существует хотя бы один набор данных. Нечетные числа.

Output

Выведите произведение всех нечетных чисел в каждой группе и для тестового примера одну строку.

Sample Input

3 1 2 3
4 2 3 4 5

Sample Output

3
15

Код выглядит следующим образом:

JAVA:

import java.util.Scanner;

public class Main {
public static void main(String[] args) {
	Scanner input=new Scanner(System.in);
	while(input.hasNext()) {
		int n=input.nextInt();
		int s=1;
		for(int i=1;i<=n;i++) {
			int a=input.nextInt();
			if(a%2==1)
				s=s*a;
		}
		System.out.println(s);
	}
}
}

C++:

#include<stdio.h>
int main()
{
    int n;
    while(~scanf("%d",&n))
    {
        int i,x,s=1;
        for(i=0;i<n;i++)
        {
            scanf("%d",&x);
            if(x%2==1) s=s*x;
        }
        printf("%dn",s);
    }
    return 0;
}

Программа на языке Турбо Паскаль 7.0

Вычисляет произведения всех нечетных двухзначные чисел, введенных с клавиатуры:

program q; / / Начало любой программы

uses crt; / / Подключение модулей

var a, a1, b, c: integer; / / Ввод переменных целочисленного типа

begin / / Начало исполняемого кода

c:=1; / / Присваиваем переменной с, хранящей произведение значения 1

Если этого не сделать, то не сработает счетчик.

writeln; / / Выводит надпись

readln (a1) ; / / Считывает число, каторое вы ввели и присваевает переменной a1 его значение

for a:=1 to a 1 do begin / / Начинает цикл от, повторяющийся нужное количества раз.

writeln; / / Выводит надпись

readln (b) ; / / Считывает введенное число и присваевает его значение переменной b

if (b9) and (b mod 2=1) then c:=c*b; //Оператор условия.

Проверяет, двузначное ли это число (больше 9 и меньше 100) и проверяет, нечетное ли оно по остатку от деления на 2

//Если да, то присваевает с значение c*b. В первый раз это будет 1*b, во второй, то, что получилось, умножить на следующее b и т. д.

end; / / Заканчивает цикл

writeln (‘Произведение равно: ‘, c) ; / / Выводит результат

readln; //Ждет нажатия на enter

end.//Конец программы

Понравилась статья? Поделить с друзьями:

Не пропустите также:

  • Как найти цифру в столбце эксель
  • Как найти накл глагола
  • Как найти курьера для компании
  • Status breakpoint chrome как исправить
  • Как найти работу что для этого нужно

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии