-Viết phương trình tính tổng S=1+2+3+…+100 -Gõ chương trình vào máy tính: +Lưu chương trình +Thực hiện chương trình +Dùng chương trình để giải cá

0 bình luận về “-Viết phương trình tính tổng S=1+2+3+…+100 -Gõ chương trình vào máy tính: +Lưu chương trình +Thực hiện chương trình +Dùng chương trình để giải cá”

1. S=1+2+3+…+100:

   uses crt;
   var i,s:longint;
   begin
   clrscr;
      for i:=1 to 100 do inc(s,i);
      writeln(s);
   readln
   end.

   S=1+2+3+…+n:

   uses crt;
   var n,i,s:longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do inc(s,i);
      writeln(s);
   readln
   end.

   S=1+3+…+n:

   uses crt;
   var n,i,s:longint;
   begin
   clrscr;
      readln(n);
      i:=1;
      while i<=n do 
         begin
            inc(s,i);
            inc(i,2);
         end;
      writeln(s);
   readln
   end.

   S=2+4+…+n:

   uses crt;
   var n,i,s:longint;
   begin
   clrscr;
      readln(n);
      i:=2;
      while i<=n do 
         begin
            inc(s,i);
            inc(i,2);
         end;
      writeln(s);
   readln
   end.

   Bình luận

2. S=1+2+3+…+N

   uses crt;
   var s,n,i:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      s:=0;
      for i:=1 to n do s:=s+i;
      Writeln(‘S= ‘,s);
   readln
   end.   

   S=1+3+…+N

   uses crt;
   var s,n,i:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      s:=0;
      for i:=1 to n do if i mod 2=1 then s:=s+i;
      Writeln(‘S= ‘,s);
   readln
   end.   

   S=2+4+…+N

   uses crt;
   var s,n,i:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      s:=0;
      for i:=1 to n do if i mod 2=0 then s:=s+i;
      Writeln(‘S= ‘,s);
   readln
   end.   

   Bình luận