: Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 20. Thông báo kết quả ra màn hình?

0 bình luận về “: Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 20. Thông báo kết quả ra màn hình?”

1. uses crt;

   var i,s: integer;

   begin

   clrscr;

   for i:=10 to 20 do s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. program Tinh_tong;

   uses crt;

   var i,Tong :intenger;

   Begin

   clrscr;

   Tong=0

   for:i=10 to 20 do Tong=Tong+i;

   writeln(‘Tong cac gia tri la:’,Tong);

   readln;

   end.

   Bình luận