Câu lệnh lặp for… Do VCT nhập một số n nguyên dương từ bàn phím a. In ra màn hình số vừa nhập? b. Tính tổng các số chẳn từ 1 đến n?

0 bình luận về “Câu lệnh lặp for… Do VCT nhập một số n nguyên dương từ bàn phím a. In ra màn hình số vừa nhập? b. Tính tổng các số chẳn từ 1 đến n?”

1. uses crt;
   var n,i,s:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      writeln(‘n la: ‘,n);
      for i:=1 to n do
      if i mod 2 = 0 then s:=s+i;
      write(‘Tong cac so chan tu 1 den ‘,n,’ la: ‘,s);
      readln
   end.

   Bình luận

2. Uses crt;

   Var i,n,s : integer;

   Begin clrscr;

   s:=0;

   Writeln(‘Nhap so n ‘); readln(n);

   writeln(‘n=’,n);

   For i:=1 to n do

   if i mod 2=0 then s:=s+i;

   writeln(‘Tong cac so chan tu 1 den n la :’, s);

   readln

   end.

   Bình luận