Question

Viết chương trình cộng dồn số sách các lớp quyên góp cho đến khi tổng số sách lớn hơn hoặc bằng 100 thì dừng.

Mn giúp em ạ mai em thii rồi.

Answer 1

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

repeat

  write('Nhap so sach:'); readln(n);

t:=t+n;

until t>=100;

writeln('Tong so quyen sach la: ',t);

readln;

end.