Viết chương trình pascal: viết chương trình tính tổng 10 số nguyên cộng lại bằng câu lệnh while..do

0 bình luận về “Viết chương trình pascal: viết chương trình tính tổng 10 số nguyên cộng lại bằng câu lệnh while..do”

1. program phuongt;
   uses crt;
      var n, i, s: integer;
   begin
          clrscr;
          s:=0;
          n:=0;
          i:=1;
          while i<=10 do
          begin
                  write(‘Nhap so thu ‘, i, ‘: ‘); readln(n);
                  s:=s+n;
                  i:=i+1;
          end;
          write(‘Tong = ‘, s);
          readln
   end.

   Bình luận

2. uses crt;
   var
   n,s,a: integer;
   begin
    clrscr;
    n:=0;
   while n <> 10 do begin
   write(‘Nhap: ‘); readln(a);
   s:=s+a; n:=n+1; end;
   write(‘S=’,s);
   readln;
   end.

   đã test mong câu tl hay nhât!

   Bình luận