Нужна программа на паскале с циклом параметраfor

19.03.2017
Без рубрики

помогите пожалуйста нужна программа на паскале с циклом параметра(for)

  • program z;var n,s,s1,i:integer;begin s:=1; s1:=1; s1:=1;write(‘n=’); read(n);for i:=1 to n dobeginif i mod 2 =0 then s:=i*s;if i mod 2 0 then s1:=i*s1; end;write(‘произведение четных = ‘,s, ‘ произведение нечетных = ‘,s1);

    end.

  • var n,f,i:integer;
    begin  readln (n);  f:=1;

      for i:=1 to n do

        if ((n mod 2 = 1) and (i mod 2 = 1)) or 
           ((n mod 2 = 0) and (i mod 2 = 0)) then f:=f*i;  writeln (f);

    end.