Дана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.
Дана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы