Question

Помогите, пожалуйста:)
1)Вывести на экран натуральные не четные числа от 50 до 40.
2)Найти произведение последовательных натуральных чисел от 7 до 12.

Answer 1

// PascalABC.Net v3.1

var

  n,p: integer;

begin

  // 1. вывод нечетных от 50 до 40

  n:=51;

  while n>=41 do begin 

    writeln(n);

    n:=n-2;

  end;

  // 2. Произведение от 7 до 12

  p:=1;

  n:=7;

  while n<=12 do begin

    p:= p* n;

    n :=n+1;

  end;

  writeln(p);

end.