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:= S+n end; b) s:=0; n:=0; while S <= 10 do n:= n+1; S:=S+n;

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.

? Chương trình a :

uses crt;

var s, n : integer;

begin

clrscr;

s := 0; n := 0;

while s <= 10 do

    begin

        n := n + 1;

        s := s + n;

    end;

write('s = ', s);

readln

end.

? Chương trình b :

uses crt;

var s, n : integer;

begin

clrscr;

s := 0; n := 0;

while s <= 10 do

    n := n + 1;

s := s + n;

write('s = ', s);

readln

end.