Viết chương trình : Tính tổng B bằng 5+9+13-. chị đến khi B vượt quá 5000 thì đừng lại xuất hiện số hạng cuối cùng. Giải theo kiểu trình bày ra giấ

0 bình luận về “Viết chương trình : Tính tổng B bằng 5+9+13-. chị đến khi B vượt quá 5000 thì đừng lại xuất hiện số hạng cuối cùng. Giải theo kiểu trình bày ra giấ”

1. Program FNG;
   Uses crt;
   Var B,i: longint;
   Begin
           Clrscr;
           b:=0; i:=5;
           While b<5000 do
           Begin
                   b:=b+i;
                   inc(i,4);
           End;
           If b>5000 then b:=b-i-4;
           Write(B);
           Readln
   End.

   Bình luận

2. Uses crt;
   Var b,i: longint;
   Begin
           Clrscr;
           b:=0; i:=5;
           While b<=5000 do
           Begin
                   b:=b+i;
                   inc(i,4);
           End;
           Write(i-4);
           Readln
   End.

   Bình luận