Question

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

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

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.

Answer 3

3.

program SumAndProductOfNumbers;

var
  i, sum, product: integer;

begin
  sum := 0;
  product := 1;
  
  for i := 10 to 25 do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from 10 to 25 is: ', sum);
  writeln('The product of numbers from 10 to 25 is: ', product);
end.

Answer 4

4.

program SumOfEvenOrOddNumbers;

var
  n, i, number, sumEven, sumOdd: integer;

begin
  writeln('Enter the value of N: ');
  readln(n);
  
  sumEven := 0;
  sumOdd := 0;
  
  for i := 1 to n do
  begin
    writeln('Enter number ', i, ': ');
    readln(number);
    
    if number mod 2 = 0 then
      sumEven := sumEven + number
    else
      sumOdd := sumOdd + number;
  end;
  
  writeln('The sum of even numbers is: ', sumEven);
  writeln('The sum of odd numbers is: ', sumOdd);
end.

Answer 5

Bài 1

Var n,i,so:integer;

s,p:longint;

Begin

Write('N = ');readln(n);

s:=0;

p:=1;

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

s:=s+so;

p:=p*so;

End;

Writeln('Tong la ',s);

Write('Tich la ',p);

Readln;

End.

Answer 6

Bài 2

Var n,m,i:integer;

s,p:longint;

Begin

Write('n = ');readln(n);

Write('m = ');readln(m);

s:=0;

p:=1;

For i:=n to m do

Begin

s:=s+i;

p:=p*i;

End;

Writeln('Tong la ',s);

Write('Tich la ',p);

Readln;

End.

Answer 7

Bài 3

Var i,s:integer;

p:longint;

Begin

s:=0;

p:=1;

For i:=10 to 25 do

Begin

s:=s+i;

p:=p*i;

End;

Writeln('Tong la ',s);

Write('Tich la ',p);

Readln;

End.

Answer 8

Bài 4

Var i,n,so:integer;

sle,sc:longint;

Begin

Write('N = );readln(n);

sle:=0;

sc:=0;

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If so mod 2 = 0 then sc:=sc+so

Else sle:=sle+so;

End;

Writeln('Tong cac so le la ',sle);

Write('Tong cac so chan la ',sc);

Readln;

End.