viết chương trình cho các bài toán sau a) Tính tổng 50 số tự nhiên đầu tiên sử dụng câu lênh while -do

0 bình luận về “viết chương trình cho các bài toán sau a) Tính tổng 50 số tự nhiên đầu tiên sử dụng câu lênh while -do”

1. uses crt;
   var i,s:longint;
   begin
   clrscr;
      i:=0;
      while i<=50 do
         begin
            inc(i);
            s:=s+i;
         end;
      writeln(‘S= ‘,s);
   readln
   end.

   Bình luận

2. program Tinhtong;

   use crt ; 

   var `i ; n ; S` : integer ;

   begin

   `S : = 0 ; i = 1;` 

   while `i<=50` do begin `S: = S + i ; i: = i+1` end ; 

   Writeln(`Tong 50 so tu nhien dau tien la : ‘ ,S );

   readln;

   end.

    

   Bình luận