Khuyên góp ủng hộ quỹ người nghèo Bằng phần mềm Pascal em hãy viết chương trình để gây quỹ ủng hộ Tổng tiền tối đa số là 2 triệu đồng Gợi ý: Dùng câu lệnh lặp While...do để thực hiện. Cần gấp ạ ;-;

1 câu trả lời

Mính sẽ viết chương trình để nhập số tiền mỗi người đóng góp.Ghi ra số người đóng góp, số tiền dư(nếu có);

Program vidu;

VAR i, st, sn: longint;

s : string;

BEGIN

st := 0; i := 0; sn:=0;

While st <= 2000000 do

begin

Write('Nhap so tien dong gop: '); Readln(i);st:= st +i; sn := sn +1;

Write('Dong gop tiep (Y/N)'); Readln(S); If s = 'N' then break;

end;

If st <= 2000000 then

Writeln('So tien da dong gop la: ', st)

else 

begin

Writeln('So tien dong gop la: 2000000');

Writeln('So tien du la: ', st - 2000000);

end;

Writeln('So nguoi dong gop la: ',sn);

Readln;

END.