сервис вопросов и ответовДана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.
10-11 класс|
|
Дильнозочка
02 марта 2015 г., 7:00:59 (9 лет назад)
FENRY
02 марта 2015 г., 8:00:33 (9 лет назад)
uses crt;
var n,t,i,j,mult:integer;
flag:byte;
begin
writeln('Input "n" and elements of array: ');
read(n);
mult:=1;
for i:=1 to n do
begin
flag:=1;
read(t);
if t mod 2 = 0 then
begin
j:=3;
while j<sqrt(t) do
begin
if t mod j = 0 then
begin
flag:=0;
break;
end;
inc(j,2);
end;
end;
if flag=1 then
mult:=mult*i;
end;
writeln(mult);
end.
Ответить
Другие вопросы из категории
помогите пожалуйста! срочно!
Задан квадратный массив. Найти сумму элементов по периметру массива.
Читайте также
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Помогите решить в C++
Дана последовательность из n целых чисел. Найти количество элементов этой последовательности, кратных числу К.
В последовательности из 15 целых чисел найти максимальный элемент из четных.
Помогите пожалуйста написать программу)
Даны два целых числа А и В (А<В). Найти сумму всех целых чисел от А до В включительно Входные данные: ввести два целых числа А,В (1<=A,
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
составить программу в Паскале
Дан массив из N целых чисел. найти номер первого элемента ,который меньше 10.
Вы находитесь на странице вопроса "Дана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.