em hãy sử dụng vòng lặp While…do để viết chương trình tính tổng các số từ 15 đến 75? Giúp mk vs nha

0 bình luận về “em hãy sử dụng vòng lặp While…do để viết chương trình tính tổng các số từ 15 đến 75? Giúp mk vs nha”

1. uses crt;

   var i,t:integer;

   begin

   clrscr;

   i:=15;t:=0;

   while i<76 do

   begin

   t:=t+i;

   i:=i+1

   end;

   writeln(‘Tong cac so tu 15 den 75 la: ‘,t);

   readln;

   end.

   Bình luận

2. uses crt;
   var i,s:integer;
   begin
      clrscr;
      i:=15; s:=0;
      while i<=75 do
      begin
         s:=s+i;
         i:=i+1;
      end;
      write(‘Tong la: ‘,s);
      readln
   end.

   Bình luận