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}$