Viết chương trình nhập vào các số nguyên cho đến khi gặp số 0. Tính và in ra màn hình tổng các đảo ngược của các số trên

Question

phuongthao · Answer

var a: array[1..10000] of longint; s: longint;   begin   repeat   readln(a[i]);   s:=s+a[i];   until a[i]=0;   write(s);   readln   end.   .

maingoc · Answer

var a: array[1..10000] of longint; s: longint;   begin   repeat   readln(a[i]);   s:=s+a[i];   until a[i]=0;   write(s);   readln   end.