Дана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.
Дана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.