viết chương trình in ra màn hình các số chẵn <= n(n được nhập từ bàn phím)

0 bình luận về “viết chương trình in ra màn hình các số chẵn <= n(n được nhập từ bàn phím)”

1. program tong_chan;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   write(‘nhap n=’);

   readln(n);

   s:=0;

   i:=1;

   while i<=n do

   begin

   if i mod 2=0 then

   s:=s+i;

   i:=i+1;

   end;

   write(‘s=’,s);

   readln;

   end.   

   Bình luận

2. program Tong;

   uses crt; 
   var i,n,s:integer; 
   begin 
   clrscr; 
   write(‘ Nhập n : ‘ );Read(n); 
   S:=0; 
   For i:=1 to n do 
   begin 
   if (i mod 2) = 0 then s:=s+i; 
   end; 
   Writeln(‘Tổng S: ,S);readln; 
   END. 

   Bình luận