Question

Viết chương trình Pascal

có 3 bạn tuấn, thành, phan rủ nhau mua kem. tuấn góp 30 ngàn, tiền của thành góp gấp đôi tiền của tuấn, phan góp ít hơn thành 10 ngàn. Vậy với số tiền của 3 bạn này mua được bao nhiêu cây kem ( mỗi cây 7 ngàn ) và số tiền lẻ còn dư lại bao nhiêu ?

Answer 1

uses crt;

var phan,thanh,tuan,tong,sck:longint;

begin

clrscr;

tuan:=30000;

thanh:=tuan*2;

phan:=thanh-10000;

tong:=tuan+thanh+phan;

sck:=(tuan+thanh+phan) div 7;

writeln('So cay kem mua duoc la: ',sck);

writeln('So tien con du la: ',tong-sck);

readln;

end.