Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/19: Рейтинг темы: голосов - 19, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 25.12.2012
Сообщений: 10
1

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

25.12.2012, 19:44. Просмотров 3764. Ответов 5
Метки нет (Все метки)

Доброго времени суток. Помогите решить задачу. Дана последовательность n целых чисел. Вычислить произведение простых чисел последовательности.(без массива)
Заранее, спасибо)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2012, 19:44
Ответы с готовыми решениями:

Дана последовательность из 20 целых чисел. Определить со скольких простых чисел она начинается
Дана последовательность из 20 целых чисел. Определить со скольких простых чисел она начинается.

Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел последовательности, большее числа х
Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел...

Дана последовательность из n целых чисел. Найти номер максимального элемента последовательности
Условие: Дана последовательность из n целых чисел. Найти номер максимального элемента...

Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности
Помогите решить задачу с использованием ключевых слов как "repeat" и "until". Дана...

5
25 / 25 / 26
Регистрация: 06.06.2012
Сообщений: 92
25.12.2012, 19:58 2
Вроде так:
Pascal
1
2
3
4
5
6
7
8
9
program z1;
var i,p,n: integer;
begin
writeln('Введите колличество чисел'); readln(n);
p:=1;
for i:= 1 to n do
p:= i*p;
writeln(p);
end.
1
0 / 0 / 0
Регистрация: 25.12.2012
Сообщений: 10
25.12.2012, 20:03  [ТС] 3
Тоесть получается, найти факториал?
0
25 / 25 / 26
Регистрация: 06.06.2012
Сообщений: 92
25.12.2012, 20:07 4
Цитата Сообщение от Motoka Посмотреть сообщение
Тоесть получается, найти факториал?
Не в курсе)

Тут надо добавить еще проверку условия простое это число или нет.
0
0 / 0 / 0
Регистрация: 25.12.2012
Сообщений: 10
25.12.2012, 20:47  [ТС] 5
Можешь полностью написать, не выходит ничего....
0
0 / 0 / 1
Регистрация: 25.12.2012
Сообщений: 8
26.12.2012, 00:02 6
Pascal
1
2
3
4
5
6
7
8
9
вот так
program prost;
var a,i,m:integer;
begin
readln(A);
for i:=1 to a do
  if a mod i =0 then  m:=m+1;
  if (m=2) or (a=1) then write('prost') else write('no');
  end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2012, 00:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана последовательность целых чисел, найти минимальный и максимальный члены последовательности и их номера
дана последовательность n целых чисел:a1,a2,..,an. найти минимальный и максимальный члены...

Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца последовательности)
Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца...

Задано N количество чисел последовательности и последовательность из N чисел. Найти и вывести произведение этих чисел и первое положительно число
Задано N количество чисел последовательности и последовательность из N чисел. Найти и вывести...

Дана последовательность целых чисел а1, а2, …, an. Выяснить, является ли она симметричной последовательностью простых чисел
Ребят срочно надо><


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

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

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