Ngôn ngữ pascal Câu 1: Nhập vào 2 số nguyên M,N.Tính tổng các số chẵn trong đoạn M,N Câu 2: Tính tổng sau: S = 500+1/3+1/6+1/9+…+1/3N

0 bình luận về “Ngôn ngữ pascal Câu 1: Nhập vào 2 số nguyên M,N.Tính tổng các số chẵn trong đoạn M,N Câu 2: Tính tổng sau: S = 500+1/3+1/6+1/9+…+1/3N”

1. Câu 1:

   uses crt;
   var i,m,n,t:longint;
   begin
   clrscr;
      write(‘Nhap m,n: ‘);readln(m,n);
      for i:=m to n do  
         if i mod 2=0 then inc(t,i); 
      writeln(‘Tong cac so chan tu m den n: ‘,t);
   readln
   end.

   Câu 2:

   uses crt;
   var i,n:longint; s:real;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=3 to 3*n do  
         s:=s+1/i;
      s:=s+500;
      writeln(‘S= ‘,s);
   readln
   end.

   Bình luận

2. Câu 1:

   Program BTT;
   Uses crt;
   Var m,n,s,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap m va n: ‘); Readln(m,n);
           s:=0;
           If m<n then
                   For i:=m to n do
                           If i mod 2=0 then s:=s+i
           Else
                   For i:=n to m do
                           If i mod 2=0 then s:=s+i;
           Write(‘Tong la: ‘,s);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var n,i: longint;
       s: extended;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=500;
           For i:=1 to n do
                   s:=s+1/(3*i);
           Write(‘Tong la: ‘,s:0:2);
           Readln
   End.

   Bình luận