Question

sử dụng vòng lập while...do, viết chương trình tính tổng của 50 số tự nhiên đầu tiên

help

Answer 1

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End.