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

0 bình luận về “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”

1. 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

   Bình luận

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

   Bình luận