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.

0 bình luận về “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”