Question

Пожалуйста, помогите написать программы в Паскале!

№1
Произведение целых чисел

№2
Сколько нечетных среди n введенных?

Заранее спасибо

Answer 1

№2
var  Proizv: LongInt;  n, i: Integer;begin  Proizv:=1;  write('N: ');  readln(n);  for i:=1 to n do    if odd(i) then Proizv:=Proizv * i;  writeln('Произведение (for): ', Proizv);  Proizv:=1; i:=1;  while i <= n do  begin    if odd(i) then Proizv:=Proizv * i;    i:=i + 1;  end;  writeln('Произведение (while): ', Proizv);  Proizv:=1; i:=1;  repeat    i:=i + 1;    if odd(i) then Proizv:=Proizv * i;  until (i = n);  writeln('Произведение (repeat): ', Proizv);end.