Viết chương trình tính tổng các số nguyên từ 5 đến n-1 sử dụng vòng lặp for...to...do

2 câu trả lời

Program baitap;

Uses crt;

Var i,n: integer;

        tong: longint;

Begin

Clrscr;

Writeln('Moi nhap so N'); readln(n);

If n-1>5 then

For i:=5 to n-1 do

tong:= tong + i;

Readln;

End.

Chúc bạn học tốt

Program oken;

Uses crt;

Var i,n: integer;

        s: longint;

Begin

Clrscr;

Writeln('nhap 1 so bat ky: '); readln(n);

For i:=5 to n-1 do

s:=s + i;

writeln('Tong: ',s);

Readln;

End.

${Oken}$