Question

Написать программу нахождения разности произведения и суммы натурального ряда чисел от одного до n. На языке Pascal.

Answer 1

• Program Brainly;
• Var I,N,S,R,P:integer;
• Begin
• Repeat
• Write('Введите число для натурального ряда:');
• Readln(N);
• Until N > 0;
• For I:= 1 to N do
• S:= S + I;
• Writeln('Сумма чисел:',S);
• P:= 1;
• For I:= 1 to N do
• P:= P * I;
• Writeln('Произведение чисел:',P);
• R:= P - S;
• Writeln('Разность чисел:',R);
• end.

Answer 2

Конечно, вот программа на языке Pascal, которая выполняет указанное действие:

pascalCopy code
program DifferenceOfProductAndSum;

var
  n, i: integer;
  sum, product, result: longint;

begin
  writeln('Введите значение n: ');
  readln(n);
  
  sum := 0;
  product := 1;

  for i := 1 to n do
  begin
    sum := sum + i;
    product := product * i;
  end;

  result := product - sum;

  writeln('Разность произведения и суммы натурального ряда чисел от 1 до ', n, ': ', result);
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal) и запустите программу. Она попросит вас ввести значение n, после чего выведет разность произведения и суммы натурального ряда чисел от 1 до n.