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

Question

Информатика

Клим

11 октября, 05:50

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ленуша · Answer 1

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
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.