viết công thức tính tổng các số tự nhiên là số chẵn từ 1100 ( có thể sử dụng câu lệnh điều kiện và câu lệnh lặp lại)

0 bình luận về “viết công thức tính tổng các số tự nhiên là số chẵn từ 1100 ( có thể sử dụng câu lệnh điều kiện và câu lệnh lặp lại)”

1. Nếu đề là: Viết chương trình tính tổng các số tự nhiên là số chẳn từ 1 đến 1100 thì đây là chương trình nhé 😀

   program Min;
   uses crt;
   var i:integer; S:longint;
   begin
      clrscr;
      S:=0;
      for i:=1 to 1100 do 
      if i mod 2 = 0 then S:=S+i;
      write(‘S=’,S);
      readln
   end.

   Bình luận

2. uses crt;
   var i,kq:longint;
   begin
           clrscr; 
           for i:=2 to 1100 do
                    if i mod 2 = 0 then
                           inc(kq,i);
           write(‘Tong tu so chan tu 1 den 1100 la: ‘,kq);
           readln;
   end.

   Bình luận