Question

[32.Thuỳ 7/2]

Em sử dụng pascal, nếu đc thì có thể ghép bốn câu lại với nhau giúp em :3

Bài1: viết chương trình tính tổng(tích) của N số tự nhiên.

Bài2: viết chương trình tính tổng (tích) từ số n đến m

Bài3: viết chương trình tính tổng (tích) từ 10 đến 25

Bài4: viết chương trình tính tổng các số lẻ(hoặc chẵn) của N số tự nhiên, N được nhập từ bàn phím.

Answer 1

[Nguyễn Hoàng Duy]

1.

Var i ,n : integer;

S , T : real;

Begin

Write ('n:') ;

Read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' , S );

Writeln (' Tich của ' ,n,', T );

Readln;

End.

Answer 2

[Nguyễn Hoàng Duy]

2.

program SumAndProductOfNumbers;

var
  n, m, i, sum, product: integer;

begin
  writeln('Enter the values of n and m: ');
  readln(n, m);
  
  sum := 0;
  product := 1;
  
  for i := n to m do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from ', n, ' to ', m, ' is: ', sum);
  writeln('The product of numbers from ', n, ' to ', m, ' is: ', product);
end.