Nhập vào 1 biến: tính tổng các biến được nhập vào cho đến khi biến nhập vào=0 a) viết thuật toán b) viết chương trình

0 bình luận về “Nhập vào 1 biến: tính tổng các biến được nhập vào cho đến khi biến nhập vào=0 a) viết thuật toán b) viết chương trình”

1. Chương trình:

   var a,s:longint;

   begin

   a:=1;

   while a<>0 do 

   begin

   write(‘Nhap a: ‘); readln(a);

   s:=s+a;

   end;

   writeln;

   write(‘s= ‘,s);

   readln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var a,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           s:=a;
           While a<>0 do
           Begin
                   Write(‘Nhap a: ‘); Readln(a);
                   s:=s+a;
           End;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận