bước 1 S<-1,i<-1 nếu i>5 thì chuyển tới bước 4 bước 3 S<-S+i,ii<-i+2 và quay lại bước 2

0 bình luận về “bước 1 S<-1,i<-1 nếu i>5 thì chuyển tới bước 4 bước 3 S<-S+i,ii<-i+2 và quay lại bước 2”

1. program BT;

   uses crt;

   var i,S: byte;

   Begin

            clrscr;

            S:=1; i=1;

            while i<=5 do

            begin

                     S:=S+i;

                     i:=i+2;

            end;

            write(‘S = ‘,S);

            readln

   End.

   Bình luận

2. Var i,n,s:integer;

   begin

   readln(s,n);

   s:=0;

   n:=0;

   if n <= 5 then n:=n+1;

   s:=s+n;

   writeln(s);

   Bình luận