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.