viết chương trình in các số chẵn từ 1 đến 100

0 bình luận về “viết chương trình in các số chẵn từ 1 đến 100”

1. Viết chương trình in các số chẵn từ 1 đến 100?

   Program viet_chuong_trinh_tinh_tong;
   Uses Crt;
   Var i,s:integer;
   Begin
   Clrscr;
   i:=2;
   While (i>1) and (i<=100) do
   Begin
   s:=s+i;
   i:=i+2;
   End;
   Writeln(S);
   Readln;
   End.

   Bình luận

2. Program viet_chuong_trinh_tinh_tong;
   Uses Crt; 
   Var i,s:integer; 
   Begin 
   Clrscr; 
   i:=2; 
   While (i>1) and (i<=100) do 
   Begin 
   s:=s+i; 
   i:=i+2; 
   End; 
   Writeln(S); 
   Readln; 
   End

   Bình luận