sử dụng câu lệnh while ..do viết chương tính tổng các số tự nhiên chẵn nhỏ hơn hoặc bằng n

0 bình luận về “sử dụng câu lệnh while ..do viết chương tính tổng các số tự nhiên chẵn nhỏ hơn hoặc bằng n”

1. var i,n: integer;

   s:longint;

   begin

   write(‘nhap so n=’);readln(n);

   s:=0;

   i:=1;

   while i<=n do

   begin

   s:=s+i; i:=i+1;

   end;

   write(‘tong cua’,n,’ so tu nhien dau tien la’,s);

   readln

   end.

   Bình luận

2. var i,n: integer;

   s:longint;

   begin

   write(‘nhap so n=’);readln(n);

   s:=0;

   i:=1;

   while i<=n do

   begin

   s:=s+i; i:=i+1;

   end;

   write(‘tong cua’,n,’ so tu nhien dau tien la’,s);

   readln

   end.

   Bình luận