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!