Viết chương trình,tính tổng của 100 só tự nhiên,sử dụng câu lệnh while do và for to do Hic giúp với nha,plss

0 bình luận về “Viết chương trình,tính tổng của 100 só tự nhiên,sử dụng câu lệnh while do và for to do Hic giúp với nha,plss”

1. Dùng For…to…do:

   program BT;

   uses crt;

   var i,T: byte;

   Begin

            clrscr;

            for i:=1 to 100 do T:=T+i;

            write(‘Tong 100 so tu nhien = ‘,T);

            readln

   End.

   Dùng While…do:

   program BT;

   uses crt;

   var i,T: byte;

   Begin

            clrscr;

            i:=1;

            while i<=100 do

            begin

                     T:=T+i;

                     i:=i+1;

            end;

            write(‘Tong 100 so tu nhien = ‘,T);

            readln

   End.

   Bình luận

2. Program       tinh_tong;

   Uses             Crt;

   var               d, i: integer;

   Begin 

   clrscr;

   d:=0;

   for i:=1 to 100 do

   d:=d+i;

   writeln(‘ Ket qua là:= ‘ , d);

   readln;

   End.

   Bình luận