Sử dụng câu lệnh lặp for …do hay tính tổng 100soos tự nhiên chẵn đầu tiên. In kết quả lên màn hình

0 bình luận về “Sử dụng câu lệnh lặp for …do hay tính tổng 100soos tự nhiên chẵn đầu tiên. In kết quả lên màn hình”

1. program bt;
   uses crt;
   var i,S:integer;
   begin
      clrscr;
      S:=0;
      for i:=1 to 200 do if i mod 2 = 0 then S:=S+i;
      write(‘Tong cua 100 so tu nhien chan dau tien la: ‘,S);
      readln
   end.

   Bình luận

2. Program BTH;
   Uses Crt;
   var a,b:longint;
   Begin
   clrscr;
   For a:=1 to 200 do
   If a mod 2=0 then
   b:=b+a;
   writeln(‘Tong 100 so duong dau tien la: ‘,b);
   readln;
   end.

   Bình luận