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 jbegin 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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
