Viết chương trình : In ra màn hình các số lẻ từ1 đến 100.Cứ 10 số trên 1 dòng

0 bình luận về “Viết chương trình : In ra màn hình các số lẻ từ1 đến 100.Cứ 10 số trên 1 dòng”

1. Program TinhTongCacSoChanTu1den100_Cach3;
   Var n, i: integer;
       tong, so: integer;
       
   BEGIN
       writeln(‘Chuong trinh tinh tong cac so chan trong khoang tu 1 -> 100’);
       readln;
       
       tong: = 0;
       for i:= 1 to 50 do
           tong:= tong + 2*i;
       
       writeln(‘Tong cua cac so chan trong khoang tu 1 -> 100 bang: ‘,tong:4);
       readln;
   END.

   Bình luận

2. Program Tinhtongcacsochantu1den100
   Var n, i: integer;
       tong, so: integer;    
   BEGINreadln;
   END.

   Bình luận