Viết chương trình tính tổng các số tự nhiên từ 1 đến 5 ( gợi ý: trong vòng lặp vẫn dúng công thức gán tong+ biến đếm cho biến tổng nhưng phải có câu lệnh tăng biến lên một đơn vị cho biến đếm--> lý do phải dùng câu lệnh ghép cho câu lệnh sao do

Program Hotboy;

Uses crt;

Var tong,i : integer;

Begin

Clrscr;

For i:=1 to 5 do 

Tong:=tong+i;

Writeln('tong cac so tu 1 den 5 la',tong); 

Readln

End.

Cách For do

Program BTH;
uses crt;
var s,i:longint;
Begin
        clrscr;
        For i:=1 to 5 do s:=s+i;
        writeln('Tong cac so tu 1 den 5 la: ',s);
        readln;
end.

Cách While do

Program BTH;
uses crt;
var s,i:longint;
Begin
        clrscr;
        While i<>5 do
        Begin
                i:=i+1;
                s:=s+i;
        end;
        writeln('Tong day so tu 1 den 5 la: ',s);
        readln;
end.

Đây nha bạn hai cách luôn nha đã test cả rồi ko sai đâu