Viết chương trình tính tổng các số từ 10 đến 20!!!

0 bình luận về “Viết chương trình tính tổng các số từ 10 đến 20!!!”

1. Uses crt;

   Var i,s : integet;

   Begin

   s:=0; i:=10;

   While (i>=10) and (i<=20) do begin s:=s+i; i:=i+1;

   write(‘tong la’ , s);

   readln

   end.

   Bình luận

2. Program bai1;

   user crt;

   var i,n,s: integer;

   begin

   clrscr;

   s=0;

   for i:=10 to 20 do

   s:=s+i;

   writeln(‘tinh tong =’ , s)

   readln;

   end.

   Bình luận