sử dụng lệnh for -do viết chương trình tính tổng các số tự nhiên lẻ nhỏ hơn hoặc=n với n là số tự nhiên bất kỳ được nhập từ bàn phím

0 bình luận về “sử dụng lệnh for -do viết chương trình tính tổng các số tự nhiên lẻ nhỏ hơn hoặc=n với n là số tự nhiên bất kỳ được nhập từ bàn phím”

1. program tinh_tong;

   uses crt;

   var n, i, S: integer;

   begin

   write(‘nhap so n=’);

   readln(n);

   S:=0 for i:=1 to n do if i mod 2=1 then S:=1

   writeln(‘Tong la’,S);

   readln;

   end.

   Bình luận

2. program tong;

   uses crt;

   var n,i: integer;

         s: longint;

   begin clrscr;

      write(‘Nhap so n: ‘); readln (n);

          s:=0;

        for i:=1 to n do

          s:=s+i;

      write(‘Tong la: ‘,s);

   readln;

   end.

   Học tốt!

   Bình luận