viết mỗi đoạn chương trình Pascal sau thành 1 chương trình hoàn chỉnh a) s:=0; n:=0; while S <= 10 do begin n:= n+1; S:=

0 bình luận về “viết mỗi đoạn chương trình Pascal sau thành 1 chương trình hoàn chỉnh a) s:=0; n:=0; while S <= 10 do begin n:= n+1; S:=”

1. 1/

   a)

   program oken;

   uses crt;

   var s,n:integer;

   begin

   clrscr;

   s:=0;   n:=0;

   while s<= 10 do

        begin

              n:=n+1;

              s:=s+n;

         end;

   writeln(‘S: ‘,s);

   writeln(‘n: ‘,n);

   readln;

   end.

   b)

   program oken;

   uses crt;

   var s,n:integer;

   begin

   clrscr;

   s:=0;   n:=0;

   while s<= 10 do n:=n+1;

   s:=s+n;

   writeln(‘S: ‘,s);

   writeln(‘n: ‘,n);

   readln;

   end.

   Trả lời