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.
Câu hỏi trong lớp
Xem thêm