Question

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

Answer 1

program test;
var i, n, sum, product: integer;
begin
   write('Enter n: ');
   readln(n);

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

   writeln('Sum = ', sum);
   writeln('Product = ', product);
   readln();
end.