Вывести произведение простых чисел среди элементов массива, которые являются делителями числа 150.

@Вассэ · Регистрация: 19.12.2011

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

Хелп пжалста с этим:
Вводятся размер одномерного массива и его элементы. Вывести произведение простых чисел среди элементов массива, которые являются делителями числа 150.
Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых произведение цифр оканчивается на 1.

@AntiVIRUZ · 20.12.2011, 12:36

Pascal

Program help
var a:array[1..1000]of integer; i,n:integer; k:real;
 
function IsSimple (N: integer): boolean;
begin
  if N<2 then
  begin
    Result := False;
    exit;
  end;
  Result := True;
  var SqN := round(sqrt(N));
  for var i:=2 to SqN do 
    if N mod i = 0 then
    begin
      Result := False;
      exit;
    end;
end;
 
begin
writeln('Введите размерность массива:');
read(n);
writeln('Введите массив');
for i:=1 to n do
read(a[i]);
k:=1;
for i:=1 to n do
if (IsSimple(a[i])) and (150 mod a[i] = 0) then k:=k*a[i];
write('Произведение равно',k);
end.

@Вассэ · 20.12.2011, 23:38 **[ТС]**

Спасибо). еще бы вторую плз :

Сообщение от Вассэ

Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых произведение цифр оканчивается на 1.

@Вассэ 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 6
		1
	Вывести произведение простых чисел среди элементов массива, которые являются делителями числа 150. 19.12.2011, 23:39. Показов 1031. Ответов 2 Метки нет (Все метки) Хелп пжалста с этим: Вводятся размер одномерного массива и его элементы. Вывести произведение простых чисел среди элементов массива, которые являются делителями числа 150. Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых произведение цифр оканчивается на 1. 0

@Вассэ 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 6
	20.12.2011, 23:38 [ТС]	3
	Спасибо). еще бы вторую плз : Сообщение от Вассэ Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых произведение цифр оканчивается на 1. 0

Вывести произведение простых чисел среди элементов массива, которые являются делителями числа 150.

Решение