Sử dụng cấu trúc là thích hợp để viết Chương trình tổng 50 số tự nhiên đầu tiên và máy tính sẽ thực hiện nhiều vòng lặp: thông báo kết quả in ra màn hình

2 câu trả lời

Program Hotboy ;

Uses crt;

Var s,i : integer ;

Begin

Clrscr;

S:=0; 

For i:=1 to 50 do

Begin

S:=S+i;

Inc(i);

End;

Writeln('tong cua 50 so dau tien la',S);

Readln

End.

program ct;

uses crt;

var i:integer;

      S:longint;

begin clrscr;

     S:=0;

   for i:=1 to 50 do

     S:=S+i;

   write('Tong 50 so tu nhien dau la: ',S);

readln;

end.

Học tốt!